Displaying 1 result from an estimated 1 matches for "punten".
Did you mean:
punted
2008 Apr 30
2
wireframe - add data points
...xpand.grid(totalfrost=seq(-1.9,3.6,by=0.25),logtps=seq(-3.3,1.1,by=0.25),logpd=seq(0.95,4.1, by=0.25),logwinterp=seq(1.49,1.78, by=0.25))
abc$status <-as.vector(predict(model,abc,type="response"))
##below is the import of the original data together with their predicted probabilities##
punten <- read.table("probs.csv",header=T,sep=";")
x <- punten[,1:1]
y <- punten[,2:2]
z <- punten[,3:3]
pts <- data.frame(x=x,y=y,z=z)
##end import original data##
wireframe(status~totalfrost*logtps,abc,scales=list(arrows=TRUE),drape=TRUE, screen =list (x=15, y=-50,...