我在可折叠的手风琴中使用了控制组......第一部打开的手风琴效果很好,而且角落也用于对照组。
但是当我打开另一个时,控制组不再可折叠了......
x <- seq(-3,3,by=0.25)
y <- seq(-3,3,by=0.25)
d <- expand.grid(x=x,y=y)
z <- c(data=NA,1089)
b0 = 5.628; b1 = 0; b2 = 0; b3 = -.1 ; b4 =.1; b5 = -.1
k=1
for (i in 1:25) {
for (j in 1:25) {
z[k]=b0+b1*x[i]+b2*y[j]+b3*x[i]*x[i]+b4*x[i]*y[j]+ b5*y[j]*y[j]
k=k+1
} }
library(rsm)
data.lm <- lm(z~poly(x,y,degree=2),data=d)
persp(data.lm,x~y, zlim=c(0,max(z)),contour=list(z="bottom",col="colors"),theta=-55,phi=25)
我在这里创建了一个测试:https://jsfiddle.net/scfmwakk/1/
您可以检查这项效果不佳
谢谢
答案 0 :(得分:0)
我怀疑这是由于操作的顺序。
分叉示例:https://jsfiddle.net/Twisty/mcc7eoch/
<强>的jQuery 强>
$(function() {
$(".controle").controlgroup();
$("#accordion").accordion({
active: 0,
heightStyle: "content",
collapsible: true
});
$("input:radio, input:checkbox").checkboxradio({
icon: false
});
});
这允许首先渲染每个控制组,然后将其放置在手风琴中。