Description Usage Arguments Examples
View source: R/plot.R View source: R/plot.irts.R
Sum Score ploting of irts objects
Sum Score ploting of irts objects
1 2 3 |
which.scores |
|
which.scores |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | item_params <- list()
item_params[[1]] <- list()
item_params[[1]]["slope_gen"] <- 1.2
item_params[[1]]["slope_spec"] <- 1
item_params[[1]][["thr"]] <- list()
item_params[[1]][["thr"]] <- c(-1)
item_params[[2]] <- list()
item_params[[2]]["slope_gen"] <- 1.2
item_params[[2]]["slope_spec"] <- 1
item_params[[2]][["thr"]] <- list()
item_params[[2]][["thr"]] <- c(-.6)
item_params[[3]] <- list()
item_params[[3]]["slope_gen"] <- 1
item_params[[3]]["slope_spec"] <- .8
item_params[[3]][["thr"]] <- list()
item_params[[3]][["thr"]] <- c(-.2)
item_params[[4]] <- list()
item_params[[4]]["slope_gen"] <- 1
item_params[[4]]["slope_spec"] <- .8
item_params[[4]][["thr"]] <- list()
item_params[[4]][["thr"]] <- c(.2)
item_params[[5]] <- list()
item_params[[5]]["slope_gen"] <- .8
item_params[[5]]["slope_spec"] <- 1.2
item_params[[5]][["thr"]] <- list()
item_params[[5]][["thr"]] <- c(.6)
item_params[[6]] <- list()
item_params[[6]]["slope_gen"] <- .8
item_params[[6]]["slope_spec"] <- 1.2
item_params[[6]][["thr"]] <- list()
item_params[[6]][["thr"]] <- c(1)
example1 <- lw2(n_quad = 5,
theta_min = -2,
theta_max = 2,
item_params = item_params,
ic_index = c(1,1,2,2,3,3))
plot(example1)
item_params <- list()
item_params[[1]] <- list()
item_params[[1]]["slope_gen"] <- 1.2
item_params[[1]]["slope_spec"] <- 1
item_params[[1]][["thr"]] <- list()
item_params[[1]][["thr"]] <- c(-1)
item_params[[2]] <- list()
item_params[[2]]["slope_gen"] <- 1.2
item_params[[2]]["slope_spec"] <- 1
item_params[[2]][["thr"]] <- list()
item_params[[2]][["thr"]] <- c(-.6)
item_params[[3]] <- list()
item_params[[3]]["slope_gen"] <- 1
item_params[[3]]["slope_spec"] <- .8
item_params[[3]][["thr"]] <- list()
item_params[[3]][["thr"]] <- c(-.2)
item_params[[4]] <- list()
item_params[[4]]["slope_gen"] <- 1
item_params[[4]]["slope_spec"] <- .8
item_params[[4]][["thr"]] <- list()
item_params[[4]][["thr"]] <- c(.2)
item_params[[5]] <- list()
item_params[[5]]["slope_gen"] <- .8
item_params[[5]]["slope_spec"] <- 1.2
item_params[[5]][["thr"]] <- list()
item_params[[5]][["thr"]] <- c(.6)
item_params[[6]] <- list()
item_params[[6]]["slope_gen"] <- .8
item_params[[6]]["slope_spec"] <- 1.2
item_params[[6]][["thr"]] <- list()
item_params[[6]][["thr"]] <- c(1)
example1 <- lw2(n_quad = 5,
theta_min = -2,
theta_max = 2,
item_params = item_params,
ic_index = c(1,1,2,2,3,3))
plot(example1)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.