Sandbox2

Kasvukäyrä

sp: nimi: dat: + Show code- Hide code library(OpasnetUtils) d <- as.data.frame(t(matrix(dat, nrow = 3))) # Sarakkeiden pitää olla päivämäärä, pituus, paino. # Ensimmäisellä rivillä pitää olla syntymäpäivä, äidin pituus ja isän pituus. colnames(d) <- c("Pvm", "Pituus", "Paino") #d$Pvm <- as.POSIXct(strptime(d$Pvm, format = "%d.%m.%Y")) d$Pituus <- as.numeric(as.character(d$Pituus)) d$Paino <- as.numeric(as.character(d$Paino)) aidpit <- d$Pituus[1] ispit <- d$Paino[1] syntp <- d$Pvm[1] cat("Etunimi", nimi, "\n") cat("Sukupuoli", sp, "\n") cat("Äidin pituus", aidpit, "\n") cat("Isän pituus", ispit, "\n") cat("Syntymäpäivä", as.character(syntp), "\n") d <- d[-1,] oprint(d)

Spatial test

Your location: Just a selection: 1 2 3 + Show code- Hide code location selection

Dynamic variable categories test

Select type: - select - Fruits Cars Fruits and Cars Fruits Select fruits: Banana Orange Pineapple Cars Select cars: Porsche Ferrari Lamborghini + Show code- Hide code sel1 sel2 sel3