#==================================================
# Data set
trat=rep(c("A","B","C"),e=12)
dose=rep(rep(c(200,400,600,800),e=3),3)
d0=c(40,45,48)
respo=c(60,55,56, 60,65,66, 70,75,76,
80,85,86, 50,55,56, 70,75,76,
60,65,66, 50,45,46, 50,45,46,
50,55,66, 70,75,76, 80,85,86)
repe=rep(c("R1","R2","R3"),12)
#==================================================
# Analysis FAT2DIC.ad
resu=FAT2DIC.ad(trat,dose,repe = repe,respo,responseAd = d0,quali = c(TRUE,FALSE),grau21 = c(1,2,1))
#==================================================
# Regression analysis
desd_fat2_quant_ad(resu,ad.value=0,design="FAT2DIC.ad")
# Data set
trat=rep(c("A","B"),e=12)
dose=rep(rep(c(200,400,600,800),e=3),2)
d0=c(40,45,48)
respo=c(60,55,56,60,65,66,70,75,76,80,85,86,50,45,46,50,55,66,70,75,76,80,85,86)
repe=rep(c("R1","R2","R3"),8)
#==================================================
# Analysis FAT2DIC.ad
resu=FAT2DIC.ad(trat,dose,repe = repe,respo,responseAd = d0,quali = c(TRUE,FALSE))
#==================================================
# Regression analysis
desd_fat2_quant_ad(resu,ad.value=0,design="FAT2DIC.ad",grau=1)
Run the code above in your browser using DataLab