Re: Ανάλυση Δεδομένων με Η/Υ
Δημοσιεύτηκε: Σάβ Οκτ 30, 2010 10:25 pm
Μπες στην σελίδα του! τα έχει όλα...agaph έγραψε:μπορει να μου πει καποιοσ τι ωρα ειναι το εργαστηριο του φουσκακη?
To forum των φοιτητών της Σχολής Εφαρμοσμένων Μαθηματικών & Φυσικών Επιστημών του Εθνικού Μετσόβιου Πολυτεχνείου
https://semfe.gr/forum/
Μπες στην σελίδα του! τα έχει όλα...agaph έγραψε:μπορει να μου πει καποιοσ τι ωρα ειναι το εργαστηριο του φουσκακη?
aeriko έγραψε:Είδα στο site του κ.Φουσκάκη ότι η 1η εργασία μπορεί να παραδοθεί μέχρι τις 18/11 (λόγω της κατάληψης) ....
Κώδικας: Επιλογή όλων
> age<-0
> for (i in 1:length(BHPSdata[,1])){
+ if (!is.na(BHPSdata[i,1])){
+ if (BHPSdata[i,1]>16 && BHPSdata[i,1]<=24)
+ {age[i]<-"Πολυ νέα"}
+ else if (BHPSdata[i,1]>25 && BHPSdata[i,1]<=34)
+ {age[i]<-"Νεα"}
+ else if(BHPSdata[i,1]>35 && BHPSdata[i,1]<=44)
+ {age[i]<-"Ωριμη"}}}
> age<-ordered(age,levels=c("Very Young","Young","Mature"))
> table(age)
age
Very Young Young Mature
0 0 0
riemann69 έγραψε:Ειναι απο το 5ο ερωτημα της ασκησης.ΤΙ κανω λαθος οεο??Κώδικας: Επιλογή όλων
> age<-0 > for (i in 1:length(BHPSdata[,1])){ + if (!is.na(BHPSdata[i,1])){ + if (BHPSdata[i,1]>16 && BHPSdata[i,1]<=24) + {age[i]<-"Πολυ νέα"} + else if (BHPSdata[i,1]>25 && BHPSdata[i,1]<=34) + {age[i]<-"Νεα"} + else if(BHPSdata[i,1]>35 && BHPSdata[i,1]<=44) + {age[i]<-"Ωριμη"}}} > age<-ordered(age,levels=c("Very Young","Young","Mature")) > table(age) age Very Young Young Mature 0 0 0
Κώδικας: Επιλογή όλων
%Καλό είναι να αρχικοποιείς τα διανύσματα που θα χρησιμοποιείσεις με τις κατάλληλες ουδέτερες τιμές. Πριν με το 0 η πρώτη τιμή της age ήταν 0 ενώ θα έπρεπε να είναι ΝΑ
age<-rep(NA,length(BHPSdata[,1]))
%Η age δεν είναι ένα διάνυσμα από Strings (πχ. "Young") αλλά από κωδικοποιημένες κατηγορίες δηλ. 1,2,3. Επίσης είχες κάνει λάθος στα όρια...
for (i in 1:length(BHPSdata[,1])){
if (!is.na(BHPSdata[i,1])){
if (BHPSdata[i,1]>=16 && BHPSdata[i,1]<=24)
{age[i]<-1}
else if (BHPSdata[i,1]>24 && BHPSdata[i,1]<=34)
{age[i]<-2}
else if(BHPSdata[i,1]>34 && BHPSdata[i,1]<=44)
{age[i]<-3}}}
%Με την παρακάτω εντολή δηλώνεις πως η age είναι κατηγορική και με την εντολή levels ονομάζεις τα επίπεδα 1,2,3.
age<-factor(age)
levels(age)<-c("Very Young","Young","Mature")
table(age)
Ρώτησα τον Φουσκάκη και μου είπε πως αύριο δεν έχει εργαστήριο....Nasia! έγραψε:λογικα εχουμε, αφου θα εχουν περασει 2 εβδομαδες απο το προηγουμενο..