Description Usage Arguments Author(s) See Also Examples
CircE.Plot
produces the graphical representations of the estimated circular position of the variables and the Fourier correlation function. The function uses dev.new
to create two different devices preserving an appropriate aspect ratio.
1 2 3 |
object |
a circumplex model produced by |
pchar |
plotting character, i.e., symbol to use. It can be either a single value or a vector of length equal to numbers of variables used in correlation matrix. For further details see |
bg.points |
background color for the symbols selected with |
ef |
"explosion factor". It specifies the distances at which the name of the variables are drawn around the circumference. Default to 0.4 (if negative labels are drawn inside the circumference). |
big.points, big.labels |
numerical values giving the amount by which plotting labels and symbols should be magnified relative to the default ( |
bg.plot |
background color of the plot region. |
col.axis |
the color to be used for axis annotation, axis line and labels. |
color |
the color to be used for plot lines and symbols foreground. |
col.text |
the color to be used for plot texts. |
twodim |
logical. If |
bound |
logical. If arguments |
labels |
logical. If |
reverse |
logical. If |
Michele Grassi grassi.mic@gmail.com
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 | #______ Vocational Interests Scale: Sample Correlation Matrix. N=175 _____
R.vocational=matrix(c(
1,0,0,0,0,0,0,
0.654,1,0,0,0,0,0,
0.453,0.644,1,0,0,0,0,
0.251,0.440,0.757,1,0,0,0,
0.122,0.158,0.551,0.493,1,0,0,
0.218,0.210,0.570,0.463,0.754,1,0,
0.496,0.264,0.366,0.202,0.471,0.650,1
),7,7,byrow=TRUE)
R=R.vocational+t(R.vocational)-diag(diag(R.vocational))
v.names=c("Health","Science","Technology","Trades","Business Operations",
"Business Contact","Social")
dimnames(R)=list(v.names,v.names)
## Not run:
model=CircE.BFGS(R,v.names,m=3,N=175,r=1)
CircE.Plot(object=model, pchar = 24, bg.points = "transparent", ef = -0.4,
big.points = 15, big.labels=6, bg.plot = "white", col.axis = "black",
color = "black", col.text = "black",
twodim=FALSE,bound=TRUE,labels=TRUE)
## End(Not run)
#______________ Block's correlation matrix. N=48 ________
data(Block)
block.names=colnames(Block)
## Not run:
Block.m.1<-CircE.BFGS(R=Block,v.names=block.names,m=1,N=48,start.values="PFA")
CircE.Plot(object=Block.m.1, pchar = 24, bg.points = "gray", ef = -0.4,
big.points = 25, big.labels=15, bg.plot = "orange", col.axis = "blue",
color = "black", col.text = "red",
twodim=FALSE,bound=TRUE,labels=TRUE)
CircE.Plot(object=Block.m.1, pchar = 21, bg.points = "red", ef = -0.4,
big.points = 25, big.labels=15, bg.plot = "white", col.axis = "black",
color = "black", col.text = "white",
twodim=FALSE,bound=TRUE,labels=TRUE)
CircE.Plot(object=Block.m.1, pchar = 21, bg.points = "red", ef = -0.2,
big.points = 25, big.labels=15, bg.plot = "black", col.axis = "green",
color = "white", col.text = "yellow",
twodim=FALSE,bound=TRUE,labels=TRUE)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.