CloudDeploy[Manipulate[If[n==True,Plot[x^2,{x,-100,100}],Plot[Log[x],{x,-100,100}]],{{n,False,"Tipo de gráfica"},{True,False}}],"Tipo de grafica",Permissions->"Public"]

Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada, Escuela de Informática, Universidad Nacional de Costa Rica,  .