In [4]:
options(repr.plot.width=8, repr.plot.height=4, repr.plot.res=600)
t <- read.csv(file="/Users/jul/Downloads/Encuesta.csv",sep="\t", row.names=NULL)
dim(t)
levels(t[,40]) <- c("0", "30", "5", "5", "15", "0", "0", "50")
temp <- unlist(t[47])
levels(temp) <- c(0, 0, 1, 20, 50, 100, 500)
levels(temp)
t[47] <- temp
- 89
- 69
- '0'
- '1'
- '20'
- '50'
- '100'
- '500'
In [5]:
head(t)
X...1.Identificacion.del.encuestado X2.Identificacion.del.recopilador X3.Fecha.de.inicio X4.Fecha.de.fin X5.Direccion.IP X6.Email X7.Genero X8.Rango.de.edad X9.Nivel.de.formacion X10.Seleccione.la.Facultad.en.la.cual.ejerce.sus.actividades.laborales ⋯ X37....Que.laboratorios.de.la.Universidad.realizan.funciones.similares.y.considera.usted.podrian.relacionarse. X38....Que.laboratorios.considera.usted.podrian.crearse.en.la.Facultad.en.la.cual.usted.trabaja..de.acuerdo.a.sus.programas.academicos..lineas.de.investigacion.y.o.demanda.del.entorno. X39....Cuales.son.las.principales.fortalezas.del..os..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado. X40....Cuales.son.las.principales.debilidades.de..los..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado. X41....Cuales.son.las.mayores.dificultades.que.usted.considera.tendria..n..el..los..laboratorio..s..para.obtener.una.futura.acreditacion. X42....Cuanto.dinero.requiere.que.se.invierta.en.el.laboratorio.en.el.cual.usted.trabaja..para.que.pueda.estar.acreditado.y.prestar.servicios.certificados.a.agentes.externos.de.la.Universidad.del.Valle. Justifique.su.respuesta. X43..Consideramos.fundamental.su.experiencia.y.conocimiento..por.lo.cual.requerimos.de.usted.un.importante.esfuerzo.de.sintesis.que.nos.permita.recolectar.al.menos.una.accion.o.iniciativa.estructurada.que.contribuya.al.desarrollo.del.sistema.de.laboratorios.de.la.Universidad.del.Valle. Comentarios.y.recomendaciones..Si.desea.hacer.algun.aporte.o.sugerencia.para.la.Vicerrectoria.de.Investigaciones.y.el.Comite.Institucional.de.laboratorios.de.la.Universidad.del.Valle..por.favor..use.el.siguiente.espacio. X 5290542784 95727345 03/17/2017 03/17/2017 138.122.201.143 alba.torres@correounivalle.edu.co Masculino Entre 51 y 60 anos Doctorado Facultad de Ciencias Naturales y Exactas Laboratorio de propagacion in vitro Experiencia. Apoyo institucional. Apoyo institucional. La mayor necesidad del Laboratorio de semillas es el mantenimiento de equipos La mayor necesidad del Laboratorio de semillas es el mantenimiento de equipos El laboratorio depende de los proyectos de investigacion, apoya la formacion de estudiantes y genera resultados de investigacion en semillas. Sin embargo, el mantenimiento de equipos y el manejo de residuos quimicos, podrian ser actividades apoyadas por la Universidad del Valle y que ayudan al buen funcionamiento del laboratorio. NA 5288254358 95727345 03/15/2017 03/15/2017 138.122.201.141 ranulfo.gonzalez@correounivalle.edu.co Masculino Mayor de 60 anos Doctorado Facultad de Ciencias Naturales y Exactas Grupo de Hormigas Lab. de marcadores moleculares Personal calificado. Apoyo institucional. Apoyo institucional. Entre 50 millones y 100 millones de pesos. No existe un presupuesto destinado al mantenimiento de los equipos que se adquieren. Hace falta adecuacion de mejores espacios para que las labores se realicen de manera mas armonica con lo que se requiere realizar especificamente. El espacio destinado a labores o que tiene mayor demanda es insuficiente, es urgente destinar un espacio adecuado a cada labor que se desea realizar, identificando necesidades comunes con otros laboratorios que realizan actividades o pruebas similares NA 5287662499 95727345 03/15/2017 03/15/2017 138.122.201.139 wilmar.bolivar@correounivalle.edu.co Masculino Entre 41 y 50 anos Doctorado Facultad de Ciencias Naturales y Exactas Lab de Biologia Marina, entomologia y botanica Mas que crear, tener un espacio donde se consoliden todos los de Biologia y las colecciones cientificas Personal calificado. Inversion en infraestructura y equipamiento. Inversion en infraestructura y equipamiento. Entre 50 millones y 100 millones de pesos. Enfocarnos en tener por lo menos unos cuantos laboratorios bien dotados, que cumplan y permitan ofrecer mejores servicios a la comunidad universitaria, como a nuestros actores externos Creo que se podria lograr consolidad espacios que concentres a las unidades academicas con sus laboratorios, asi podriamos lograr mejores estandares, incluso lograr trabajar mas unidos NA 5278924190 95727345 03/08/17 03/08/17 138.122.201.138 hernan.colorado@correounivalle.edu.co Masculino Entre 31 y 40 anos Doctorado Facultad de Ciencias Naturales y Exactas Laboratorio de Fluorescencia de Rayos X. Facultad de Ingenierias crear una union estrategica con el Laboratorio de Fluorescencia de Rayos X (Fac. Ingenieria) para ofrecer servicios en conjunto a la industria. Inversion en infraestructura y equipamiento. Apoyo institucional. Personal calificado. Entre 50 millones y 100 millones de pesos. Este dinero sin contar el pago mensual permanente que debe asumor la universidad para tener una persona profesional de dedicacion exclusiva al laboratorio El laboratorio debe contar con personal contratado formalmente por la universidad de manera exclusiva para el manejo del equipo del laboratorio La Vicerrectoria de Investigaciones, debe asumir los costos de mantenimiento anual del laboratorio de forma permanente, que para este ano son de $22'740.000. Los ingresos al laboratorio no son suficientes para cubrir este valor. NA 5278774366 95727345 03/08/17 03/08/17 138.122.201.139 jesus.diosa@correounivalle.edu.co Masculino Entre 51 y 60 anos Doctorado Facultad de Ciencias Naturales y Exactas Peliculas delgadas, Centro de Estudio de Nuevos Materiales Experiencia. Inversion en infraestructura y equipamiento. Inversion en infraestructura y equipamiento. Entre 100 millones y 200 millones de pesos. Realizar proyectos en conjunto con los demas laboratorios NA 5278535361 95727345 03/08/17 03/09/17 138.122.201.138 janeth.sanabria@correounivalle.edu.co Femenino Entre 41 y 50 anos Postdoctorado Facultad de Ingenieria Laboratorio de Microbiologia del departamento de Biologia, laboratorio de CINARA seccion microbiologia Un laboratorio de analisis quimicos y bioquimicos de alta especificidad. Experiencia. Inversion en infraestructura y equipamiento. Baja demanda. Mas de 500 millones de pesos. EL laboratorio tiene estudios arquitectonicos con fines de acreditacion que se hicieron por un valor de 60 millones. En este estudio se estipulaba el valor de 1000000 millones. Creo que debe hacerse economia de escala en la prestacion de servicios, la acreditacion contempla dos aspectos, la acreditacion de procesos administrativos y la de pruebas mismas. Mientras que las segundas son especificas a las areas de conocimiento la primera es muy comun a todos los laboratorios. Por tal razon creo que esos procesos de deben centralizar. No es sostenible si cada laboratorio de servicio tiene una secretaria, un mensajero, tres tecnicos de muestreo y un profesor tiempo completo a cargo entre otros. Sin embargo para tener una admiistracion unica, los procesos deben centrarse si es posible en un edificio con las caracteristicas tecnicas necesarias. El sistema debe ser autosostenible, cuya ventaja para los investigadores seria tener pruebas confiables de las mas altas calidades a mitad de precio. Esto sube el nivel de la investigacion ya que investigadores y estudiantes se concentran en lo esencial y no en resolver problemas de respuestos de equipos, standarizacion de metodos de medicion de pruebas ya estandarizadas hace decenios. NA
In [6]:
names(t)
- 'X...1.Identificacion.del.encuestado'
- 'X2.Identificacion.del.recopilador'
- 'X3.Fecha.de.inicio'
- 'X4.Fecha.de.fin'
- 'X5.Direccion.IP'
- 'X6.Email'
- 'X7.Genero'
- 'X8.Rango.de.edad'
- 'X9.Nivel.de.formacion'
- 'X10.Seleccione.la.Facultad.en.la.cual.ejerce.sus.actividades.laborales'
- 'X11.Seleccione.la.Escuela.Departamento.en.la.cual.ejerce.sus.actividades.laborales'
- 'X13.Tipo.vinculacion.laboral.con.la.Universidad.del.Valle'
- 'X14.Tiempo.de.vinculacion.al.grupo'
- 'X15.nombreGrupo'
- 'X16.Categoria.de.investigador.de.acuerdo.con.la.medicion.de.Colciencias.737.2015'
- 'X16.Hace.parte..lidera.o.coordina.actividades.en.alguno.de.los.laboratorios.de.la.Universidad.del.Valle'
- 'Nombre.del.laboratorio'
- 'Anos.de.funcionamiento'
- 'X4..Selecciones.el.o.los.servicios..s..que.presta.su.laboratorio'
- 'X..Su.laboratorio.cuenta.con.un.organigrama.definido.'
- 'X6....Cuantas.personas.en.promedio.usan.su.laboratorio.al.dia.'
- 'X7....Cuantas.personas.laboran.en.promedio.en.su.laboratorio.durante.1.mes.normal.'
- 'X8....Cuantos.profesores.nombrados.usan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 'X9....Cuantos.estudiantes.de.pregrado.utilizan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 'X10....Cuantos.estudiantes.de.maestria.utilizan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 'X11....Cuantos.estudiantes.de.doctorado.utilizan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 'X..12.....Cuantos.pasantes.internacionales.utilizan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 'X13....Cuenta.su.laboratorio.con.una.resolucion.de.creacion.'
- 'X14....Cuenta.su.laboratorio.con.un.sistema.de.gestion.de.calidad.'
- 'X15....Su.laboratorio.tiene.un.manual.de.gestion.de.procesos.'
- 'X16....Cuenta.su.laboratorio.con.un.sistema.de.monitoreo.que.le.permita.realizar.mantenimiento.predictivo.'
- 'X17....Tiene.su.laboratorio.alguna.prueba.acreditada.por.un.organismo.normalizador.nacional.'
- 'X..Cuantas.'
- 'X18....Conoce.usted.el.consumo.de.servicios.publicos.mensual.de.su.laboratorio.'
- 'X19....Conoce.usted.el.consumo.mensual.de.insumos.de.su.laboratorio.'
- 'X20....Su.laboratorio.cuenta.con.un.sistema.de.control.de.inventario.de.insumos.y.equipos.propio.'
- 'X21....Conoce.usted.la.fecha.de.vencimiento.de.todos.los.insumos.que.usa.en.su.laboratorio.'
- 'X22....Su.laboratorio.tiene.identificacion.de.riesgos.y.planes.de.contingencia.'
- 'X23....Usted.tiene.un.plan.de.control.metrologico.de.sus.equipos.'
- 'X24....Cuantos.articulos.cientificos.publicados.en.los.ultimos.dos.anos.en.revistas.indexadas.por.Colciencias.contiene.datos.generados.por.su.laboratorio.'
- 'X25...En.los.ultimos.cinco.anos.que.pruebas.ha.realizado.para.desarrollar.sus.publicaciones.cientificas.indexadas.'
- 'X25...En.los.ultimos.cinco.anos.que.pruebas.ha.realizado.para.desarrollar.sus.publicaciones.cientificas.indexadas..1'
- 'X25...En.los.ultimos.cinco.anos.que.pruebas.ha.realizado.para.desarrollar.sus.publicaciones.cientificas.indexadas..2'
- 'X25...En.los.ultimos.cinco.anos.que.pruebas.ha.realizado.para.desarrollar.sus.publicaciones.cientificas.indexadas..3'
- 'X26...Donde.ha.realizado.sus.pruebas.'
- 'X27....Cuantos.grupos.de.investigacion.diferentes.al.suyo.utilizan.su.laboratorio.en.promedio.durante.1.ano.'
- 'X28....En.que.rango.se.encuentran.los.ingresos.anuales.de.su.laboratorio..teniendo.en.cuenta.todas.las.fuentes.'
- 'X29....Conoce.usted.el.numero.de.equipos.que.tiene.en.su.laboratorio.actualmente.'
- 'Cuantos.'
- 'X30....Su.laboratorio.cuenta.con.equipos.de.costo.superior.a.300.millones.'
- 'X..Cuales.son.'
- 'X31..Cuenta.con.socios.externos...para.la.gestion.y.desarrollo.academico.de.su.laboratorio.'
- 'X..Cuales.son..1'
- 'X32....Si.su.laboratorio.presta.algun.tipo.de.servicio..conoce.sus.principales.competidores.'
- 'X..Cuales.son..2'
- 'X33....Cuales.son.los.costos.de.mantenimiento.semestral.en.promedio.de.su.laboratorio.'
- 'X34....Su.laboratorio.realiza.mantenimiento.preventivo.a.equipos.e.infraestructura.'
- 'X35....Cuales.han.sido.las.principales.dificultades.para.acceder.al.uso.de.los.laboratorios.con.los.cuales.cuenta.la.Universidad.del.Valle.'
- 'X36..El.uso.de.su.laboratorio.ha.contribuido.a.la.generacion.de.patentes.'
- 'X37....Que.laboratorios.de.la.Universidad.realizan.funciones.similares.y.considera.usted.podrian.relacionarse.'
- 'X38....Que.laboratorios.considera.usted.podrian.crearse.en.la.Facultad.en.la.cual.usted.trabaja..de.acuerdo.a.sus.programas.academicos..lineas.de.investigacion.y.o.demanda.del.entorno.'
- 'X39....Cuales.son.las.principales.fortalezas.del..os..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado.'
- 'X40....Cuales.son.las.principales.debilidades.de..los..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado.'
- 'X41....Cuales.son.las.mayores.dificultades.que.usted.considera.tendria..n..el..los..laboratorio..s..para.obtener.una.futura.acreditacion.'
- 'X42....Cuanto.dinero.requiere.que.se.invierta.en.el.laboratorio.en.el.cual.usted.trabaja..para.que.pueda.estar.acreditado.y.prestar.servicios.certificados.a.agentes.externos.de.la.Universidad.del.Valle.'
- 'Justifique.su.respuesta.'
- 'X43..Consideramos.fundamental.su.experiencia.y.conocimiento..por.lo.cual.requerimos.de.usted.un.importante.esfuerzo.de.sintesis.que.nos.permita.recolectar.al.menos.una.accion.o.iniciativa.estructurada.que.contribuya.al.desarrollo.del.sistema.de.laboratorios.de.la.Universidad.del.Valle.'
- 'Comentarios.y.recomendaciones..Si.desea.hacer.algun.aporte.o.sugerencia.para.la.Vicerrectoria.de.Investigaciones.y.el.Comite.Institucional.de.laboratorios.de.la.Universidad.del.Valle..por.favor..use.el.siguiente.espacio.'
- 'X'
In [7]:
nombreLab <- t[17]
F <- nombreLab == ""
In [8]:
t <- t[!F,] ## remove empty labnames
nombreLab <- t[17]
nombreLab
Nombre.del.laboratorio Laboratorio de Semillas laboratorio del Grupo de Investigaciones Entomologicas Laboratorio de preparaciones biologicas Laboratorio de Difraccion de Rayos X Transiciones de Fase en sistemas no metlicos Microbilogia y Biotecnologia Ambiental Laboratorio de Biologia Molecular Laboratorio de malacologia Secuenciales y Sistemas de tiempo real Ecosistemas Rocosos LICAP Laboratorio de Microbiologia y Bioanalisis Citogenetica y Biologia del Desarrollo Laboratorio Histologia Laboratorio de Microbiologia y Bioanalisis Laboratorio de anatomia Farmacologia Laboratorio de Fisiologia de Postgrado Laboratorio Clinica Universidad del Valle Laboratorio de habilidades y destrezas en odontologia Laboratorio Clinicas Odontologicas Hospital simulado Laboratorio de Terapia Ocupacional Laboratorio de Histologia Laboratorio de Analisis, recuperacion y optimizacion del movimiento humano Laboratorio de Diagnostico de Agentes Biologicos Patologia Bioquimica pregrado Bioquimica postgrado Laboratorio Fisiologia Pregrado Bioinformatica y biocompuatcion laboratorio de transformadores Diseno de circuitos y sistemas electronicos Vision Artificial, Procesamiento de Senales PEQUENAS CENTRALES HIDROELECTRICAS Laboratorio de Metrologia Electrica Laboratorio de Termodinamica Aplicada. Laboratorios de docencia de biologia Multimedia y Vision GEOPOSICIONAMIENTO Redes y Sistemas Distribuidos Laboratorio Combustion Combustibles Caracterizacion mecanica y microestructural de materiales Laboratorio de Secuenciales y Sistemas de tiempo real Laboratorio de Microbiologia Industrial y Ambiental Cedesoft Espectroscopia Mossbauer Laboratorio de Optica Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE Fisiologia animal LABORATORIO GICAMP Laboratorio de Investigaciones Microbiologicas (LIM) Laboratorio Analisis Industriales (LAI) Laboratorio de investigacion en Productos naturales y Alimentos Genetica Molecular Humana SIMRQO Laboratorio de Ictiologia Laboratorio "Quimica de las fracciones pesadas" Laboratorio del Grupo de Electroquimica Alta Tension
In [9]:
dim(t)
- 87
- 69
In [10]:
email <- t[6]
F <- email == ""
In [11]:
t[F,]
X...1.Identificacion.del.encuestado X2.Identificacion.del.recopilador X3.Fecha.de.inicio X4.Fecha.de.fin X5.Direccion.IP X6.Email X7.Genero X8.Rango.de.edad X9.Nivel.de.formacion X10.Seleccione.la.Facultad.en.la.cual.ejerce.sus.actividades.laborales ⋯ X37....Que.laboratorios.de.la.Universidad.realizan.funciones.similares.y.considera.usted.podrian.relacionarse. X38....Que.laboratorios.considera.usted.podrian.crearse.en.la.Facultad.en.la.cual.usted.trabaja..de.acuerdo.a.sus.programas.academicos..lineas.de.investigacion.y.o.demanda.del.entorno. X39....Cuales.son.las.principales.fortalezas.del..os..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado. X40....Cuales.son.las.principales.debilidades.de..los..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado. X41....Cuales.son.las.mayores.dificultades.que.usted.considera.tendria..n..el..los..laboratorio..s..para.obtener.una.futura.acreditacion. X42....Cuanto.dinero.requiere.que.se.invierta.en.el.laboratorio.en.el.cual.usted.trabaja..para.que.pueda.estar.acreditado.y.prestar.servicios.certificados.a.agentes.externos.de.la.Universidad.del.Valle. Justifique.su.respuesta. X43..Consideramos.fundamental.su.experiencia.y.conocimiento..por.lo.cual.requerimos.de.usted.un.importante.esfuerzo.de.sintesis.que.nos.permita.recolectar.al.menos.una.accion.o.iniciativa.estructurada.que.contribuya.al.desarrollo.del.sistema.de.laboratorios.de.la.Universidad.del.Valle. Comentarios.y.recomendaciones..Si.desea.hacer.algun.aporte.o.sugerencia.para.la.Vicerrectoria.de.Investigaciones.y.el.Comite.Institucional.de.laboratorios.de.la.Universidad.del.Valle..por.favor..use.el.siguiente.espacio. X 26 5267401771 95727345 02/28/2017 02/28/2017 190.99.230.89 Femenino Mayor de 60 anos Postdoctorado Facultad de Salud no conozco Experiencia. Inversion en infraestructura y equipamiento. Apoyo institucional. Mas de 500 millones de pesos. 1. Renovacion equipos 2. Nombramiento del personal de apoyo contratista desde hace mas de 5 anos 3.Nombramiento de profesores que han fallecido o se han jubilado 1. Los laboratorios de investigacion y servicios (extension) no pueden parar actividades debido a vacaciones colectivas. 2. El sistema de gestion de calidad de la universidad y la vicerrectoria de investigaciones no se deben manejar con monitores y contratistas NA 34 5255246808 95727345 02/20/2017 02/20/2017 138.122.201.140 Masculino Mayor de 60 anos Maestria Facultad de Ingenieria Experiencia. Inversion en infraestructura y equipamiento. Inversion en infraestructura y equipamiento. Entre 201 millones y 500 millones de pesos. Compra nde equipos actualizados y su correcto mantenimiento NA 46 5204187864 95727345 02/03/17 02/03/17 37.29.182.135 Masculino Entre 51 y 60 anos Postdoctorado Facultad de Ingenieria Experiencia. Personal calificado. No esta claro que significa acreditar un laboratorio de computo No aplica No esta claro que significa acreditar un laboratorio de computo No lo se NA 61 5197821019 95727345 01/31/2017 01/31/2017 138.122.201.131 Masculino Entre 51 y 60 anos Doctorado Facultad de Ingenieria Experiencia. Inversion en infraestructura y equipamiento. Inversion en infraestructura y equipamiento. NA 77 5197598560 95727345 01/31/2017 01/31/2017 138.122.201.142 Femenino Entre 31 y 40 anos Doctorado Facultad de Ciencias Naturales y Exactas Laboratorio de biologia celular y molecular Experiencia. Inversion en infraestructura y equipamiento. Apoyo institucional. Entre 20 millones y 50 millones de pesos El laboratorio no cuenta con ventilacion adecuada, salidas de emergencia, almacen independiente para reactivos,ni con enchapes adecuados para el piso y las paredes NA
check empty id
In [12]:
id <- t[1]
sum(id == "")
0
check duplicated id
In [13]:
sum(duplicated(id))
0
find duplicated emails
In [14]:
dups <- id[duplicated(email),]
dups
- 5272066882
- 5265906371
- 5255246808
- 5204187864
- 5198959562
- 5197821019
- 5197642377
- 5197598560
In [15]:
which(duplicated(nombreLab))
15
In [16]:
unlist(id)[duplicated(nombreLab)]
X...1.Identificacion.del.encuestado15: 5272066882
In [17]:
F <- duplicated(nombreLab)
t <- t[!F,]
dim(t)
- 86
- 69
In [18]:
nombreLab <- t[17]
data.frame(nombreLab[1:40,])
nombreLab.1.40... Laboratorio de Semillas laboratorio del Grupo de Investigaciones Entomologicas Laboratorio de preparaciones biologicas Laboratorio de Difraccion de Rayos X Transiciones de Fase en sistemas no metlicos Microbilogia y Biotecnologia Ambiental Laboratorio de Biologia Molecular Laboratorio de malacologia Secuenciales y Sistemas de tiempo real Ecosistemas Rocosos LICAP Laboratorio de Microbiologia y Bioanalisis Citogenetica y Biologia del Desarrollo Laboratorio Histologia Laboratorio de anatomia Farmacologia Laboratorio de Fisiologia de Postgrado Laboratorio Clinica Universidad del Valle Laboratorio de habilidades y destrezas en odontologia Laboratorio Clinicas Odontologicas Hospital simulado Laboratorio de Terapia Ocupacional Laboratorio de Histologia Laboratorio de Analisis, recuperacion y optimizacion del movimiento humano Laboratorio de Diagnostico de Agentes Biologicos Patologia Bioquimica pregrado Bioquimica postgrado Laboratorio Fisiologia Pregrado Farmacologia In Vitro LABORATORIO DE FONOAUDIOLOGIA Laboratorio intermedio de investigacion preclinica y bioterio de murinos motores y potencia Grupo de Ecologia y comportamiento de insectos y servicios ecosistemicos Laboratorio Quimica Ambiental - Docencia Laboratorio de Estructuras Laboratorio de Aguas Instituto Cinara Laboratorio de Ciencias con Aplicaciones Tecnologicas y Bioinorganica Laboratorio de Circuitos Electricos y Medidas Biomecanica
In [19]:
data.frame(nombreLab[41:86,])
nombreLab.41.86... Laboratorio de Espectroscopia Gisiomca Centro de computo grupo Fisica Teorica del Estado Solido. CibioFi EVALAB Laboratorio de Automatica LABORATORIO DE DOCENCIA - SEGUNDO PISO Laboratorio de Descubrimiento en Bases de Datos (KDD) CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM Recubrimientos Duros y Aplicaciones Industriales RDAI Laboratorio en Vibraciones y Acustica (LaVA) LIBB - Lab.de Investigacion en Biocatalisis y Biotransformaciones. Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ Lab. de Robotica Movil LABORATORIO DE CONVERSION DE ENERGIA - FUENTES ALTERNAS Y USO RACIONAL DE ENERGIA Laboratorio de Geologia y mecanica de rocas Bioinformatica y biocompuatcion laboratorio de transformadores Diseno de circuitos y sistemas electronicos Vision Artificial, Procesamiento de Senales PEQUENAS CENTRALES HIDROELECTRICAS Laboratorio de Metrologia Electrica Laboratorio de Termodinamica Aplicada. Laboratorios de docencia de biologia Multimedia y Vision GEOPOSICIONAMIENTO Redes y Sistemas Distribuidos Laboratorio Combustion Combustibles Caracterizacion mecanica y microestructural de materiales Laboratorio de Secuenciales y Sistemas de tiempo real Laboratorio de Microbiologia Industrial y Ambiental Cedesoft Espectroscopia Mossbauer Laboratorio de Optica Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE Fisiologia animal LABORATORIO GICAMP Laboratorio de Investigaciones Microbiologicas (LIM) Laboratorio Analisis Industriales (LAI) Laboratorio de investigacion en Productos naturales y Alimentos Genetica Molecular Humana SIMRQO Laboratorio de Ictiologia Laboratorio "Quimica de las fracciones pesadas" Laboratorio del Grupo de Electroquimica Alta Tension
In [20]:
email <- t[6]
email
X6.Email 1 alba.torres@correounivalle.edu.co 2 ranulfo.gonzalez@correounivalle.edu.co 3 wilmar.bolivar@correounivalle.edu.co 4 hernan.colorado@correounivalle.edu.co 5 jesus.diosa@correounivalle.edu.co 6 janeth.sanabria@correounivalle.edu.co 7 nelson.toro@correounivalle.edu.co 8 jaime.cantera@correounivalle.edu.co 9 carlos.pinedo@correounivalle.edu.co 10 edgardo.londono@correounivalle.edu.co 11 julian.urresta@correounivalle.edu.co 12 carolina.quiroz@correounivalle.edu.co 13 efrain.buritica@correounivalle.edu.co 14 mario.ortiz@correounivalle.edu.co 16 liliana.salazar@correounivalle.edu.co 17 mauricio.palacios@correounivalle.edu.co 18 leonardo.fierro@correounivalle.edu.co 19 andres.zea@correounivalle.edu.co 20 odontologia@correounivalle.edu.co 21 jesus.hernandez@correounivalle.edu.co 22 luzmila.hernnadez@correounivalle.edu.co 23 melania.satizabal@correounivalle.edu.co 24 maria.pustovrh@correounivalle.edu.co 25 lessby.gomez@correounivalle.edu.co 26 27 andres.castillo.g@correounivalle.edu.co 28 mildrey.mosquera@correounivalle.edu.co 29 mildrey.mosquera@correounivalle.edu.co 30 santiago.castano@correounivalle.edu.co 31 jose.gutierrez@correounivalle.edu.co ⋮ 58 pedro.moreno@correounivalle.edu.co 59 laboratorio.transformadores@correounivalle.edu.co 60 alvaro.bernal@correounivalle.edu.co 61 62 ramiro.ortiz@correounivalle.edu.co 63 ferley.castro@correounivalle.edu.co 64 gustavo.bolanos@correounivalle.edu.co 65 laboratorio.biologia@correounivalle.edu.co 66 Maria.Trujillo@correounivalle.edu.co 67 jhon.barona@correounivalle.edu.co 68 john.sanabria@correounivalle.edu.co 69 jaime.acuna@correounivalle.edu.co 70 john.coronado@correounivalle.edu.co 71 carlos.pinedo@correounivalle.edu.co 72 luis.e.mora@correounivalle.edu.co 73 mauricio.gaona@correounivalle.edu.co 74 jesus.tabares@correounivalle.edu.co 75 efrain.solarte@correounivalle.edu.co 76 peter.thomson@correounivalle.edu.co 77 78 martha.paez@correounivalle.edu.co 79 neyla.benitez@correounivalle.edu.co 80 jaime.restrepo@correounivalle.edu.co 81 ana.colmenares@correounivalle.edu.co 82 guillermo.barreto@correounivalle.edu.co 83 manuel.chaur@correounivalle.edu.co 84 laboratorio.ictiologia@correounivalle.edu.co 85 natalia.afanasjeva@correounivalle.edu.co 86 fernando.larmat@correounivalle.edu.co 87 director.altatension@correounivalle.edu.co
In [21]:
t[41,]
X...1.Identificacion.del.encuestado X2.Identificacion.del.recopilador X3.Fecha.de.inicio X4.Fecha.de.fin X5.Direccion.IP X6.Email X7.Genero X8.Rango.de.edad X9.Nivel.de.formacion X10.Seleccione.la.Facultad.en.la.cual.ejerce.sus.actividades.laborales ⋯ X37....Que.laboratorios.de.la.Universidad.realizan.funciones.similares.y.considera.usted.podrian.relacionarse. X38....Que.laboratorios.considera.usted.podrian.crearse.en.la.Facultad.en.la.cual.usted.trabaja..de.acuerdo.a.sus.programas.academicos..lineas.de.investigacion.y.o.demanda.del.entorno. X39....Cuales.son.las.principales.fortalezas.del..os..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado. X40....Cuales.son.las.principales.debilidades.de..los..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado. X41....Cuales.son.las.mayores.dificultades.que.usted.considera.tendria..n..el..los..laboratorio..s..para.obtener.una.futura.acreditacion. X42....Cuanto.dinero.requiere.que.se.invierta.en.el.laboratorio.en.el.cual.usted.trabaja..para.que.pueda.estar.acreditado.y.prestar.servicios.certificados.a.agentes.externos.de.la.Universidad.del.Valle. Justifique.su.respuesta. X43..Consideramos.fundamental.su.experiencia.y.conocimiento..por.lo.cual.requerimos.de.usted.un.importante.esfuerzo.de.sintesis.que.nos.permita.recolectar.al.menos.una.accion.o.iniciativa.estructurada.que.contribuya.al.desarrollo.del.sistema.de.laboratorios.de.la.Universidad.del.Valle. Comentarios.y.recomendaciones..Si.desea.hacer.algun.aporte.o.sugerencia.para.la.Vicerrectoria.de.Investigaciones.y.el.Comite.Institucional.de.laboratorios.de.la.Universidad.del.Valle..por.favor..use.el.siguiente.espacio. X 42 5211024036 95727345 02/06/17 02/06/17 138.122.201.135 julien.wist@correounivalle.edu.co Masculino Entre 31 y 40 anos Doctorado Facultad de Ciencias Naturales y Exactas nosotros somos parte del lab industrial en cuento a facturacion y podria eso ser un solo lab con el de ingenieria ambiental que tambien presta servicios similares a los de industriales mas que laboratorio seria de pruebas. No contamos con masas alta resolucion, que seria de mucha utilidad para varios grupos Otra: Inversion en infraestructura y equipamiento. Apoyo institucional. no lo se se debe desligar pruebas con laboratorios. Los laboratorios son organizaciones internas y pueden permanecer mucho laboratorios, la pruebas que se prestan como servicio son externas por definicion y se deben agrupar a ciertos laboratorios. Es decir que un espacio puede servir varios laboratorios, si es servicio se hace a traves de un lab, si es investigacion a traves de otro. NA
In [22]:
which(email == "maria.gomez@correounivalle.edu.co")
- 47
- 49
In [23]:
t[47,17]
LABORATORIO DE DOCENCIA - SEGUNDO PISO
In [30]:
data.frame(table(t[,19]))
Var1 Freq 0 Docencia + Extension 1 Docencia + Investigacion 21 Docencia + Investigacion + Extension 23 Investigacion + Extension 5 Solo Docencia 18 Solo Extension 3 Solo Investigacion 15
In [33]:
t[,19] == "Docencia + Investigacion"
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- FALSE
- TRUE
- TRUE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- TRUE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- TRUE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
In [34]:
t[,19] == "Solo Investigacion"
- TRUE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- TRUE
- TRUE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- TRUE
- TRUE
- FALSE
In [35]:
t[,19] == "Investigacion + Extension"
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
In [36]:
t[,19] == "Docencia + Investigacion + Extension"
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- TRUE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- TRUE
- TRUE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- TRUE
- TRUE
- FALSE
- FALSE
- TRUE
- TRUE
- FALSE
- FALSE
- FALSE
- TRUE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
- FALSE
- TRUE
- FALSE
- FALSE
- FALSE
- FALSE
- TRUE
In [ ]:
In [381]:
i = 21
names(t)[i]
t[,i]
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
length(t[,i])
names(t)[i] <- "visitantesDia"
'X6....Cuantas.personas.en.promedio.usan.su.laboratorio.al.dia.'
- 1
- 7
- 6
- 4
- 8
- 10
- 8
- 7
- 6
- 4
- 15
- 50
- 3
- 40
- 80
- 8
- 6
- 10
- 40
- 200
- 8
- 7
- 8
- 30
- 35
- 7
- 70
- 4
- 10
- 8
- 14
- 8
- 1
- 8
- 4
- 15
- 9
- 8
- 20
- 3
- 25
- 5
- 15
- 1
- 10
- 50
- 1
- 12
- 1
- 10
- 7
- 2
- 28
- 10
- 6
- 3
- 15
- 20
- 10
- 22
- 5
- 4
- 10
- 92
- 0
- 25
- 4
- 16
- 2
- 8
- 6
- 15
- 10
- 3
- 3
- 4
- 5
- 8
- 15
- 5
- 12
- 12
- 6
- <NA>
- 4
- 12
86
In [382]:
i = 22
names(t)[i]
t[,i]
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
length(t[,i])
names(t)[i] <- "personasLaborandoMes"
'X7....Cuantas.personas.laboran.en.promedio.en.su.laboratorio.durante.1.mes.normal.'
- 11
- 6
- 10
- 3
- 12
- 15
- 8
- 6
- 15
- 8
- 15
- 20
- 6
- 1
- 1
- 4
- 6
- 8
- 6
- 12
- 6
- 4
- 20
- 6
- 25
- 7
- 8
- 7
- 1
- 10
- 2
- 10
- 2
- 8
- 2
- 10
- 7
- 8
- 0
- 2
- 3
- 5
- 15
- 6
- 30
- 2
- 41
- 12
- 3
- 15
- 12
- 2
- 35
- 15
- 8
- 3
- 10
- 1
- 10
- 22
- 1
- 8
- 3
- 13
- 0
- 5
- 6
- 8
- 10
- 3
- 6
- 20
- 15
- 12
- 58
- 7
- 7
- 0
- 12
- 9
- 15
- 12
- 6
- 10
- 4
- 15
86
In [383]:
i = 23
names(t)[i]
t[,i]
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
length(t[,i])
names(t)[i] <- "profNombradosMes"
'X8....Cuantos.profesores.nombrados.usan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 2
- 2
- 4
- 6
- 4
- 3
- 3
- 1
- 2
- 2
- 4
- 11
- 3
- 5
- 3
- 1
- 4
- 3
- 10
- 23
- 4
- 0
- 4
- 3
- 8
- 3
- 1
- 9
- 4
- 2
- 6
- 12
- 1
- 3
- 1
- 4
- 2
- 1
- 4
- 1
- 3
- 1
- 0
- 1
- 5
- 12
- 10
- 3
- 5
- 2
- 2
- 1
- 4
- 3
- 4
- 2
- 3
- 1
- 2
- 3
- 2
- 2
- 1
- 21
- 1
- 2
- 1
- 6
- 3
- 3
- 0
- 2
- 3
- 2
- 4
- 2
- 1
- 2
- 15
- 2
- 2
- 2
- 2
- 3
- 2
- 2
86
In [384]:
i = 24
names(t)[i]
t[,i]
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
t[,i][t[,i] == "N.A."] <- 0
length(t[,i])
names(t)[i] <- "estudiantesPregrado"
'X9....Cuantos.estudiantes.de.pregrado.utilizan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 7
- 2
- 6
- N.A.
- 4
- 40
- 4
- 3
- 10
- 5
- 8
- 100
- 0
- 190
- 1200
- 2
- 5
- 0
- 100
- 150
- 30
- 24
- 8
- 40
- 15
- 16
- 300
- 10
- 24
- 2
- 70
- 10
- 8
- 8
- 20
- 100
- 4
- 3
- 100
- 2
- 90
- 4
- 5
- 2
- 20
- 110
- 600
- 9
- 4
- 8
- 5
- 2
- 50
- 10
- 40
- 3
- 5
- 20
- 7
- 12
- 3
- 12
- 5
- 420
- 11
- 25
- 5
- 50
- 15
- 36
- 0
- 14
- 5
- 6
- 43
- 2
- 4
- 5
- 20
- 3
- 4
- 7
- 4
- 6
- 2
- 12
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
86
In [385]:
i = 25
names(t)[i]
t[,i]
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
t[,i][t[,i] == "N.A."] <- 0
t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "estudiantesMaestria"
'X10....Cuantos.estudiantes.de.maestria.utilizan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 1
- 3
- 3
- N.A.
- 0
- 5
- 2
- 1
- 4
- 2
- 6
- 0
- 1
- 0
- 9
- 1
- 4
- 0
- 4
- 4
- 0
- 0
- 4
- 1
- 0
- 4
- 2
- 3
- 5
- 10
- 0
- 5
- 0
- 5
- 7
- 10
- 2
- 4
- 0
- 1
- 20
- 0
- 5
- 1
- 4
- 30
- No aplica excepto como docentes
- 2
- 10
- 2
- 7
- 10
- 2
- 3
- 1
- 4
- 0
- 5
- 5
- 1
- 1
- 1
- 8
- 0
- 0
- 5
- 5
- 8
- 0
- 4
- 5
- 2
- 7
- 2
- 1
- 10
- 2
- 6
- 4
- 0
- 1
- 1
- 4
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
86
In [386]:
i = 26
names(t)[i]
t[,i]
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
t[,i][t[,i] == "N.A."] <- 0
t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "estudiantesDoctorado"
'X11....Cuantos.estudiantes.de.doctorado.utilizan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 1
- 1
- 1
- N.A.
- 4
- 5
- 2
- 2
- 1
- 1
- 5
- 0
- 1
- 0
- 1
- 1
- 6
- 0
- 0
- 0
- 0
- 0
- 4
- 0
- 3
- 2
- 3
- 8
- 2
- 6
- 1
- 9
- 0
- 4
- 1
- 5
- 2
- 0
- 0
- 1
- 15
- 1
- 5
- 2
- 1
- 2
- No aplica excepto como docentes
- 1
- 10
- 1
- 1
- 10
- 2
- 2
- 0
- 5
- 0
- 3
- 5
- 0
- 0
- 4
- 3
- 0
- 1
- 2
- 2
- 2
- 0
- 2
- 2
- 2
- 8
- 2
- 2
- 5
- 4.5
- 3
- 1
- 1
- 0
- 1
- 3
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
86
In [387]:
i = 27
names(t)[i]
t[,i]
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
t[,i][t[,i] == "N.A."] <- 0
t[,i][t[,i] == "N/A"] <- 0
length(t[,i])
names(t)[i] <- "pasantesInternacionales"
'X..12.....Cuantos.pasantes.internacionales.utilizan.su.laboratorio.en.promedio.durante.1.mes.normal.'
- 0
- 0
- 2
- N.A.
- 0
- 2
- 1
- 0
- 2
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 2
- 4
- 0
- 0
- 2
- 0
- 0
- 0
- 0
- 2
- 0
- 2
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 2
- 0
- 0
- 0
- 0
- 0
- 2
- 0
- 1
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 2
- 0
- 0
- 0.1
- 0
- 0
- 0
- 0
- N/A
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
86
In [388]:
i = 28
names(t)[i]
t[,i]
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "resolucion"
'X13....Cuenta.su.laboratorio.con.una.resolucion.de.creacion.'
- No
- No
- No
- Si
- Si
- Si
- No
- No
- Si
- No
- Si
- Si
- Si
- No
- No
- No
- Si
- Si
- Si
- No
- No
- Si
- Si
- No
- Si
- No
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- No
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- No
- No
- Si
- Si
- Si
- Si
- No
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
86
In [389]:
i = 29
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "sistemaGestion"
'X14....Cuenta.su.laboratorio.con.un.sistema.de.gestion.de.calidad.'
- Si
- No
- Si
- Si
- Si
- Si
- No
- No
- No
- No
- No
- Si
- Si
- No
- Si
- No
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- No
- No
- No
- Si
- Si
- No
- Si
- No
- Si
- Si
- Si
- Si
- Si
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- No
- No
- No
- No
- No
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- ''
- 'No'
- 'Si'
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
86
In [390]:
i = 30
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "manuelProcesos"
'X15....Su.laboratorio.tiene.un.manual.de.gestion.de.procesos.'
- No
- No
- No
- Si
- Si
- Si
- No
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- Si
- No
- No
- Si
- Si
- Si
- No
- No
- No
- No
- No
- No
- Si
- Si
- Si
- No
- Si
- Si
- No
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- Si
- Si
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- Si
- Si
- Si
- No
- No
- Si
- No
- Si
- Si
- No
- No
- Si
- Si
- No
- No
- Si
- Si
- No
- Si
- Si
- No
- Si
- Si
- Si
- No
- Si
- ''
- 'No'
- 'Si'
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 0
- 1
86
In [391]:
i = 31
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "mantenimientoPredictivo"
'X16....Cuenta.su.laboratorio.con.un.sistema.de.monitoreo.que.le.permita.realizar.mantenimiento.predictivo.'
- No
- No
- No
- Si
- No
- No
- No
- No aplica
- No
- No
- No
- No
- No
- Si
- No aplica
- No
- Si
- No
- Si
- Si
- No
- No
- Si
- Si
- No
- No
- No
- No
- Si
- Si
- No
- Si
- Si
- Si
- No aplica
- No
- Si
- No
- No
- No
- Si
- No aplica
- No
- No
- No aplica
- Si
- Si
- No
- Si
- Si
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No aplica
- Si
- Si
- Si
- No
- No aplica
- No
- No aplica
- Si
- Si
- No
- Si
- No
- Si
- No
- No
- No
- No
- No
- Si
- Si
- No
- No aplica
- Si
- No
- No
- Si
- ''
- 'No'
- 'No aplica'
- 'Si'
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 1
86
In [392]:
i = 32
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "pruebaAcreditada"
'X17....Tiene.su.laboratorio.alguna.prueba.acreditada.por.un.organismo.normalizador.nacional.'
- No
- No
- No
- No
- Si
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- Si
- ''
- 'No'
- 'Si'
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
86
In [393]:
i = 33
names(t)[i]
t[,i]
#levels(t[,i])
#levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "cuentasPruebasAcreditadas"
'X..Cuantas.'
- 0
- 0
- 0
- 0
- 0
- 2
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 16
- Esta en proceso de acreditacion una prueba
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 4
- 0
- 0
- 0
- 0
- 0
- 0
- 16
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
- 0
- 0
- 0
- 0
- 0
- 2
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 16
- <NA>
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 4
- 0
- 0
- 0
- 0
- 0
- 0
- 16
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
86
In [394]:
i = 34
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "consumoMensual"
'X18....Conoce.usted.el.consumo.de.servicios.publicos.mensual.de.su.laboratorio.'
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- Si
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- Si
- No
- No
- No
- No
- No
- Si
- Si
- No
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- Si
- ''
- 'No'
- 'Si'
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
86
In [395]:
i = 35
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "consumoInsumos"
'X19....Conoce.usted.el.consumo.mensual.de.insumos.de.su.laboratorio.'
- Si
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- Si
- Si
- No
- Si
- No
- No
- Si
- Si
- Si
- No
- No
- Si
- Si
- Si
- Si
- No
- Si
- No
- No
- No
- Si
- Si
- No
- Si
- Si
- Si
- No
- Si
- No
- Si
- Si
- No
- No
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- No
- Si
- Si
- Si
- Si
- No
- No
- Si
- No
- Si
- No
- No
- Si
- Si
- Si
- No
- Si
- Si
- No
- Si
- ''
- 'No'
- 'Si'
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
86
In [ ]:
In [396]:
i = 36
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "inventario"
'X20....Su.laboratorio.cuenta.con.un.sistema.de.control.de.inventario.de.insumos.y.equipos.propio.'
- Si
- No
- No
- Si
- Si
- Si
- No
- Si
- No
- No
- Si
- Si
- Si
- Si
- No
- No
- No
- Si
- Si
- Si
- Si
- No
- Si
- Si
- No
- Si
- Si
- Si
- Si
- No
- Si
- Si
- No
- Si
- No
- Si
- Si
- No
- Si
- No
- Si
- Si
- No
- Si
- No
- Si
- No
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- No
- Si
- No
- No
- No
- Si
- Si
- No
- No
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- ''
- 'No'
- 'Si'
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
86
In [397]:
i = 37
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, NA, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "insumosVencidos"
'X21....Conoce.usted.la.fecha.de.vencimiento.de.todos.los.insumos.que.usa.en.su.laboratorio.'
- SI
- No
- No
- SI
- SI
- No
- No
- No aplica
- No aplica
- No
- SI
- No aplica
- SI
- No aplica
- SI
- SI
- No
- No
- SI
- SI
- No
- No
- SI
- SI
- SI
- No
- SI
- SI
- No aplica
- SI
- No aplica
- SI
- No aplica
- SI
- No
- No aplica
- SI
- No
- No aplica
- No aplica
- SI
- SI
- No aplica
- SI
- No aplica
- SI
- No aplica
- No aplica
- No
- No aplica
- SI
- No
- No
- No aplica
- No aplica
- No aplica
- SI
- SI
- No aplica
- No aplica
- SI
- SI
- SI
- No
- No aplica
- SI
- No aplica
- SI
- SI
- No
- SI
- No aplica
- No
- SI
- No aplica
- SI
- No
- No
- SI
- SI
- SI
- No
- No
- No
- No
- SI
- ''
- 'No'
- 'No aplica'
- 'SI'
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- <NA>
- <NA>
- 0
- 1
- <NA>
- 1
- <NA>
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- <NA>
- 1
- <NA>
- 1
- <NA>
- 1
- 0
- <NA>
- 1
- 0
- <NA>
- <NA>
- 1
- 1
- <NA>
- 1
- <NA>
- 1
- <NA>
- <NA>
- 0
- <NA>
- 1
- 0
- 0
- <NA>
- <NA>
- <NA>
- 1
- 1
- <NA>
- <NA>
- 1
- 1
- 1
- 0
- <NA>
- 1
- <NA>
- 1
- 1
- 0
- 1
- <NA>
- 0
- 1
- <NA>
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
86
In [398]:
i = 38
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "contingencia"
'X22....Su.laboratorio.tiene.identificacion.de.riesgos.y.planes.de.contingencia.'
- Si
- No
- Si
- No
- Si
- Si
- No
- No
- Si
- No
- No
- Si
- Si
- No
- Si
- No
- Si
- No
- Si
- Si
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- Si
- Si
- Si
- No
- No
- No
- No
- Si
- Si
- Si
- No
- No
- No
- Si
- No
- Si
- Si
- Si
- No
- Si
- Si
- No
- Si
- No
- Si
- Si
- No
- Si
- Si
- Si
- Si
- No
- No
- Si
- Si
- Si
- Si
- No
- Si
- No
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- ''
- 'No'
- 'Si'
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
86
In [399]:
i = 39
names(t)[i]
t[,i]
levels(t[,i])
#levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.factor(t[,i]))
t[,i] <- as.numeric(as.factor(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "metrologico"
'X23....Usted.tiene.un.plan.de.control.metrologico.de.sus.equipos.'
- Si
- No
- No aplica
- Si
- Si
- Si
- No
- No
- No aplica
- No
- No
- No
- No
- Si
- No aplica
- No
- Si
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No aplica
- Si
- No aplica
- Si
- No aplica
- No aplica
- No
- No
- Si
- No
- Si
- No
- No
- No
- No aplica
- No
- No aplica
- Si
- No
- No aplica
- No
- Si
- No
- No
- No
- No aplica
- No
- No
- Si
- Si
- No
- No
- No
- Si
- Si
- Si
- No aplica
- No
- No aplica
- Si
- Si
- No aplica
- Si
- No aplica
- No
- No aplica
- No
- Si
- No
- No
- Si
- Si
- Si
- Si
- Si
- No
- No
- Si
- ''
- 'No'
- 'No aplica'
- 'Si'
- 4
- 2
- 3
- 4
- 4
- 4
- 2
- 2
- 3
- 2
- 2
- 2
- 2
- 4
- 3
- 2
- 4
- 4
- 2
- 2
- 2
- 2
- 2
- 2
- 2
- 2
- 2
- 2
- 3
- 4
- 3
- 4
- 3
- 3
- 2
- 2
- 4
- 2
- 4
- 2
- 2
- 2
- 3
- 2
- 3
- 4
- 2
- 3
- 2
- 4
- 2
- 2
- 2
- 3
- 2
- 2
- 4
- 4
- 2
- 2
- 2
- 4
- 4
- 4
- 3
- 2
- 3
- 4
- 4
- 3
- 4
- 3
- 2
- 3
- 2
- 4
- 2
- 2
- 4
- 4
- 4
- 4
- 4
- 2
- 2
- 4
86
In [37]:
i = 40
names(t)[i]
t[,i]
levels(t[,i])
#levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "articulos"
'X24....Cuantos.articulos.cientificos.publicados.en.los.ultimos.dos.anos.en.revistas.indexadas.por.Colciencias.contiene.datos.generados.por.su.laboratorio.'
- 5
- 30
- 5
- 0
- 15
- 5
- 5
- 15
- 0
- 5
- 15
- 0
- 0
- 0
- 15
- 5
- 15
- 0
- 5
- 15
- 0
- 0
- 15
- 5
- 15
- 30
- 0
- 15
- 0
- 15
- 5
- 15
- 0
- 15
- 0
- 5
- 5
- 15
- 0
- 5
- 50
- 5
- 15
- 15
- 5
- 0
- 0
- 5
- 15
- 15
- 15
- 5
- 30
- 15
- 5
- 5
- 5
- 0
- 5
- 15
- 5
- 5
- 5
- 0
- 15
- 0
- 0
- 5
- 15
- 5
- 5
- 5
- 15
- 5
- 15
- 5
- 5
- 15
- 15
- 5
- 15
- 15
- 5
- 5
- 5
- 15
- '0'
- '30'
- '5'
- '15'
- '50'
- 5
- 30
- 5
- 0
- 15
- 5
- 5
- 15
- 0
- 5
- 15
- 0
- 0
- 0
- 15
- 5
- 15
- 0
- 5
- 15
- 0
- 0
- 15
- 5
- 15
- 30
- 0
- 15
- 0
- 15
- 5
- 15
- 0
- 15
- 0
- 5
- 5
- 15
- 0
- 5
- 50
- 5
- 15
- 15
- 5
- 0
- 0
- 5
- 15
- 15
- 15
- 5
- 30
- 15
- 5
- 5
- 5
- 0
- 5
- 15
- 5
- 5
- 5
- 0
- 15
- 0
- 0
- 5
- 15
- 5
- 5
- 5
- 15
- 5
- 15
- 5
- 5
- 15
- 15
- 5
- 15
- 15
- 5
- 5
- 5
- 15
86
In [401]:
i = 45
names(t)[i]
t[,i]
levels(t[,i])
#levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
#t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "dondeRealizaPruebas"
'X26...Donde.ha.realizado.sus.pruebas.'
- Laboratorios propios
- No aplica
- No aplica
- No aplica
- Laboratorios propios
- Laboratorios Nacionales
- Laboratorios Internacionales
- No aplica
- No aplica
- Laboratorios propios
- No aplica
- No aplica
- Laboratorios propios
- Laboratorios propios
- No aplica
- Laboratorios propios
- Laboratorios propios
- No aplica
- No aplica
- Laboratorios propios
- Laboratorios propios
- No aplica
- No aplica
- No aplica
- Laboratorios propios
- No aplica
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- No aplica
- Laboratorios propios
- No aplica
- Laboratorios propios
- Laboratorios propios
- No aplica
- No aplica
- Laboratorios propios
- Laboratorios propios
- Laboratorios Nacionales
- No aplica
- Laboratorios Internacionales
- No aplica
- Laboratorios propios
- No aplica
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- No aplica
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios Nacionales
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- Laboratorios propios
- ''
- 'Laboratorios Internacionales'
- 'Laboratorios Nacionales'
- 'Laboratorios propios'
- 'No aplica'
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
86
In [402]:
i = 46
names(t)[i]
t[,i]
levels(t[,i])
#levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "cuantosGruposUsanLab"
'X27....Cuantos.grupos.de.investigacion.diferentes.al.suyo.utilizan.su.laboratorio.en.promedio.durante.1.ano.'
- 1
- 0
- 3
- 6
- 2
- 3
- 3
- 1
- 2
- 2
- 0
- 1
- <NA>
- 2
- 0
- 4
- 0
- 1
- 4
- 1
- 3
- 3
- GIESC, SINERGIA
- 3
- Ninguno
- Es un laboratorio de docencia de pregrado donde no se realiza investigacion actualmente
- 4
- no aplica
- 4
- 1
- 8
- 0
- 1
- 0
- 2
- 4
- 3
- <NA>
- 1
- 18
- 0
- 1
- 7
- 0
- 3
- <NA>
- 1
- 5
- 8
- 2
- 1
- 2
- 2
- 1
- 0
- 2
- 0
- 0
- 2
- 0
- 2
- 4
- 0
- 2
- 1
- 6
- 1
- 2
- 2
- 3
- 3
- 3
- 1
- 1
- 3
- 4
- 5
- 4
- 3
- 0
- 1
- 2
- 1
- 1
- ''
- '0'
- '1'
- '18'
- '2'
- '3'
- '4'
- '5'
- '6'
- '7'
- '8'
- 'Es un laboratorio de docencia de pregrado donde no se realiza investigacion actualmente'
- 'GIESC, SINERGIA'
- 'Ninguno'
- 'no aplica'
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
- 1
- 0
- 3
- 6
- 2
- 3
- 3
- 1
- 2
- 2
- <NA>
- 0
- 1
- <NA>
- 2
- 0
- 4
- 0
- 1
- 4
- 1
- 3
- 3
- <NA>
- 3
- <NA>
- <NA>
- 4
- <NA>
- 4
- 1
- 8
- 0
- 1
- 0
- 2
- 4
- 3
- <NA>
- 1
- 18
- 0
- 1
- 7
- 0
- 3
- <NA>
- 1
- 5
- 8
- 2
- 1
- 2
- 2
- 1
- 0
- 2
- <NA>
- 0
- 0
- 2
- 0
- 2
- 4
- 0
- 2
- 1
- 6
- 1
- 2
- 2
- 3
- 3
- 3
- 1
- 1
- 3
- 4
- 5
- 4
- 3
- 0
- 1
- 2
- 1
- 1
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
86
In [403]:
i = 47
names(t)[i]
t[,i]
levels(t[,i])
#levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "ingresos"
'X28....En.que.rango.se.encuentran.los.ingresos.anuales.de.su.laboratorio..teniendo.en.cuenta.todas.las.fuentes.'
- 1
- 50
- 20
- 20
- 50
- 500
- 20
- 0
- 0
- 0
- 500
- 0
- 20
- 0
- 0
- 0
- 100
- 100
- 0
- 500
- 0
- 20
- 20
- 50
- 100
- 500
- 20
- 50
- 0
- 0
- 20
- 20
- 0
- 0
- 1
- 100
- 100
- 0
- 20
- 20
- 20
- 0
- 0
- 500
- 0
- 0
- 0
- 0
- 500
- 50
- 500
- 50
- 500
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 100
- 500
- 50
- 1
- 1
- 1
- 500
- 20
- 1
- 100
- 500
- 100
- 1
- 50
- 50
- 20
- 50
- 100
- 50
- 20
- 20
- 50
- 50
- 1
- 500
- '0'
- '1'
- '20'
- '50'
- '100'
- '500'
- 1
- 50
- 20
- 20
- 50
- 500
- 20
- 0
- 0
- 0
- 500
- 0
- 20
- 0
- 0
- 0
- 100
- 100
- 0
- 500
- 0
- 20
- 20
- 50
- 100
- 500
- 20
- 50
- 0
- 0
- 20
- 20
- 0
- 0
- 1
- 100
- 100
- 0
- 20
- 20
- 20
- 0
- 0
- 500
- 0
- 0
- 0
- 0
- 500
- 50
- 500
- 50
- 500
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 100
- 500
- 50
- 1
- 1
- 1
- 500
- 20
- 1
- 100
- 500
- 100
- 1
- 50
- 50
- 20
- 50
- 100
- 50
- 20
- 20
- 50
- 50
- 1
- 500
86
In [404]:
i = 48
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "sabeNumeroEquipos"
'X29....Conoce.usted.el.numero.de.equipos.que.tiene.en.su.laboratorio.actualmente.'
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- No
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- No
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- No
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- Si
- ''
- 'No'
- 'Si'
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
86
In [405]:
i = 50
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "equiposRobustos"
'X30....Su.laboratorio.cuenta.con.equipos.de.costo.superior.a.300.millones.'
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- Si
- No
- No
- No
- Si
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- Si
- No
- No
- No
- No
- Si
- Si
- Si
- No
- Si
- No
- Si
- No
- Si
- No
- No
- No
- No
- Si
- Si
- No
- No
- No
- No
- Si
- Si
- No
- No
- No
- Si
- No
- Si
- No
- Si
- No
- Si
- Si
- Si
- No
- No
- No
- No
- Si
- ''
- 'No'
- 'Si'
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
86
In [406]:
i = 51
names(t)[i]
t[,i]
levels(t[,i])
#levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
#t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
#names(t)[i] <- "sistemaGestion"
'X..Cuales.son.'
- Difractometro de Rayos X
- Microscopios Opticos Binoculares marca Olympus
- Tomografo
- HPLC, qPCR y espectrofotometro de absorcion atomica
- 1
- PPMS, AFM, SEM
- Magnetron sputtering y magnetron cilindrico
- El vibrometro Laser de Efecto Doppler ronda ese precio
- Sistema WArd Leonard, 4 conjuntos de maquinas de 15KW oerlikon, 2 conjuntos de maquinas de 7Hp. Westinghouse, Un sistema de generacion de 500Amp. de corriente continua, Un sistema de pruebas de maquinas rotativas dinamometrica de 5Hp. 4 Equipos resgistradores industriales.
- Patron Fluke
- SISTEMA DE TERMOBALANZA Y LECHO FLUIDIZADO
- Equipo de nanoindentacion IBIS
- Susceptometro AC Lakeshore, Sonda de perfilaje gamma-gamma.
- CROMATOGRAFO DE GASES ACOPLADO A UN ESPECTROMETRO DE MASAS (ITQ)
- HPLC
- ANALIZADOR GEN\303\211TICO (SECUENCIADOR DE ADN) ABI 3130
- Generador de Impulsos, generador de alta tension AC, campo de pruebas de Corto, equipo de descargas parciales y campo de pruebas de Ruido
- ''
- '1'
- 'ANALIZADOR GEN\303\211TICO (SECUENCIADOR DE ADN) ABI 3130'
- 'CROMATOGRAFO DE GASES ACOPLADO A UN ESPECTROMETRO DE MASAS (ITQ)'
- 'Difractometro de Rayos X'
- 'El vibrometro Laser de Efecto Doppler ronda ese precio'
- 'Equipo de nanoindentacion IBIS'
- 'Generador de Impulsos, generador de alta tension AC, campo de pruebas de Corto, equipo de descargas parciales y campo de pruebas de Ruido'
- 'HPLC'
- 'HPLC, qPCR y espectrofotometro de absorcion atomica'
- 'Magnetron sputtering y magnetron cilindrico '
- 'Microscopios Opticos Binoculares marca Olympus'
- 'PPMS, AFM, SEM'
- 'Patron Fluke '
- 'SISTEMA DE TERMOBALANZA Y LECHO FLUIDIZADO'
- 'Sistema WArd Leonard, 4 conjuntos de maquinas de 15KW oerlikon, 2 conjuntos de maquinas de 7Hp. Westinghouse, Un sistema de generacion de 500Amp. de corriente continua, Un sistema de pruebas de maquinas rotativas dinamometrica de 5Hp. 4 Equipos resgistradores industriales. '
- 'Susceptometro AC Lakeshore, Sonda de perfilaje gamma-gamma.'
- 'Tomografo'
Warning message in eval(expr, envir, enclos):
"NAs introduced by coercion"
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- 1
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
- <NA>
86
In [407]:
i = 52
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "internationalPartners"
'X31..Cuenta.con.socios.externos...para.la.gestion.y.desarrollo.academico.de.su.laboratorio.'
- No
- Si
- No
- No
- No
- Si
- Si
- No
- No
- No
- Si
- No
- No
- No
- No
- Si
- Si
- No
- No
- No
- No
- No
- Si
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- Si
- Si
- Si
- No
- No
- No
- No
- No
- No
- No
- Si
- No
- No
- No
- Si
- No
- Si
- Si
- Si
- No
- No
- No
- No
- Si
- No
- No
- No
- Si
- No
- Si
- No
- No
- Si
- No
- Si
- No
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- Si
- No
- Si
- Si
- No
- No
- No
- ''
- 'No'
- 'Si'
- 0
- 1
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 0
86
In [408]:
i = 59
names(t)[i]
t[,i]
levels(t[,i])
levels(t[,i]) <- c(0, 0 ,0, 1)
as.numeric(as.character(t[,i]))
t[,i] <- as.numeric(as.character(t[,i]))
#t[,i][is.na(t[,i])] <- 0
#t[,i][t[,i] == "N.A."] <- 0
#t[,i][t[,i] == "No aplica excepto como docentes"] <- 0
length(t[,i])
names(t)[i] <- "patentes"
'X36..El.uso.de.su.laboratorio.ha.contribuido.a.la.generacion.de.patentes.'
- No
- Si
- No
- No
- Si
- Si
- No
- No
- No aplica
- No
- No
- No aplica
- No
- No aplica
- Si
- No
- Si
- No
- No
- Si
- No
- No
- No
- No
- No
- No
- No
- No
- No aplica
- Si
- No
- Si
- No aplica
- No
- No
- No
- Si
- No
- No
- Si
- No
- No
- No aplica
- No
- No
- No aplica
- No aplica
- No aplica
- No
- Si
- Si
- No
- Si
- No aplica
- Si
- No
- No
- No
- No
- No
- No
- Si
- Si
- No
- No
- No
- Si
- No
- No
- No
- No
- Si
- No
- Si
- No
- No
- No
- No
- Si
- No
- No
- No
- No
- No
- Si
- ''
- 'No'
- 'No aplica'
- 'Si'
- 0
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 1
86
In [409]:
i = 63
names(t)[i]
t[,i]
levels(t[,i]) <- c(0,0,0,1)
as.numeric(as.factor(t[,i]))
as.numeric(as.character(t[,i]))
'X40....Cuales.son.las.principales.debilidades.de..los..laboratorio..s..en.el..los..cual..es..usted.ha.trabajado.'
- Apoyo institucional.
- Apoyo institucional.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- no he palpado esas debilidades
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Inversion en infraestructura y equipamiento.
- Baja demanda.
- Mal desarrollado el aplicativo: son dos apoyo institucional y burocraciainsititucional
- Apoyo institucional.
- Otra:
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Baja demanda.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Marketing; Inversion en infraestructura y equipamiento; Apoyo institucional; y Conocimiento Juridico
- Inversion en infraestructura y equipamiento.
- Alta rotacion del personal cualificado y falta de apoyo institucional
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Tramitomania
- Falta de Planificacion. Muy poco apoyo de personal tecnico. Carencia de un Sistema integral de laboratorios. Reducida inversion economica.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Personal calificado.
- El area de trabajo es pequena, para la demanda de usuarios del Laboratorio; Falta recurso humano de planta, para el soporte y mantenimiento; poca aireacion e iluminacion
- Mantenimiento preventivo
- Inversion en infraestructura y equipamiento.
- Otra:
- Apoyo institucional.
- Personal calificado.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Apoyo institucional.
- solo acepta una seleccion,?!! Debilidad apoyo nstitucional, personal de spoyo, necsidad equipos reposicion por final vida util.
- Inversion en infraestructura y equipamiento.
- Personal calificado.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Apoyo institucional.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Personal calificado.
- Actualizacion oportuna ante rapidos cambios tecnologicos.
- Apoyo institucional.
- Apoyo institucional.
- Disminucion de estudiantes dedicados a la investigacion.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Apoyo institucional.
- Inversion en infraestructura y equipamiento.
- Falta de mantenimiento de los equipos poco recurso economico para ello
- Apoyo institucional.
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
- Financiacion de los proyectos de investigacion
- Inversion en infraestructura y equipamiento.
- Inversion en infraestructura y equipamiento.
Error in `levels<-.factor`(`*tmp*`, value = c(0, 0, 0, 1)): number of levels differs
Traceback:
1. `levels<-`(`*tmp*`, value = c(0, 0, 0, 1))
2. `levels<-.factor`(`*tmp*`, value = c(0, 0, 0, 1))
3. stop("number of levels differs")
In [442]:
i = 65
names(t)[i]
var = t[,i]
levels(t[,i])
lbls <- levels(var)
pie(table(var), labels = lbls, main=names(t)[questions[i]])
summary(t[,i])
11*100 + 20*9 + 200*9 + 21*50 + 17*500
'X42....Cuanto.dinero.requiere.que.se.invierta.en.el.laboratorio.en.el.cual.usted.trabaja..para.que.pueda.estar.acreditado.y.prestar.servicios.certificados.a.agentes.externos.de.la.Universidad.del.Valle.'
- ''
- 'Entre 100 millones y 200 millones de pesos.'
- 'Entre 20 millones y 50 millones de pesos'
- 'Entre 201 millones y 500 millones de pesos.'
- 'Entre 50 millones y 100 millones de pesos.'
- 'La mayor necesidad del Laboratorio de semillas es el mantenimiento de equipos'
- 'Mas de 500 millones de pesos.'
- 'No aplica'
- 'No aplica '
- 'No prestamos servicios'
- 1
- 9
- Entre 100 millones y 200 millones de pesos.
- 11
- Entre 20 millones y 50 millones de pesos
- 9
- Entre 201 millones y 500 millones de pesos.
- 9
- Entre 50 millones y 100 millones de pesos.
- 21
- La mayor necesidad del Laboratorio de semillas es el mantenimiento de equipos
- 1
- Mas de 500 millones de pesos.
- 17
- No aplica
- 7
- No aplica
- 1
- No prestamos servicios
- 1
12630
In [433]:
sum(t$cuentasPruebasAcreditadas)
#lbls <- levels(var)
#pie(table(var), labels = c("no","si"), main=names(t)[questions[i]], col=c("red","green"))
39
we prepare the data, selecting only a few columns
In [315]:
#c <- lapply(t[,c(21:27,33,40,46,47)],function(x) as.numeric(as.character(x)))
#c2 <- lapply(t[,c(38:39,47,50)],function(x) as.numeric(as.factor(x)))
#c2 <- lapply(t[,c(29:32,35:36,38:39,50)],function(x) as.numeric(as.factor(x)))
#cc <- unlist(c(c,c2))
#n <- length(cc) / nrow(t)
#b <- data.frame( "x"=I( matrix(cc, ncol=n) ) )
questions <- c(21:27,29:36,38:40,46:48,50,52,59)
#colnames(b$x) <- names(t)[questions]
data.frame( "questions"=names(t)[questions] )
length(questions)
b <- data.frame("x"=I( cbind(t[,questions])))
dim(b$x)
rownames(b$x)<-seq(1:nrow(b$x))
#b$x[is.na(b$x)] <- 0
#questions <- c(21:27,29:36,38:40,46:48,50,52,59)
questions visitantesDia personasLaborandoMes profNombradosMes estudiantesPregrado estudiantesMaestria estudiantesDoctorado pasantesInternacionales sistemaGestion manuelProcesos mantenimientoPredictivo pruebaAcreditada cuentasPruebasAcreditadas consumoMensual consumoInsumos inventario contingencia metrologico articulos cuantosGruposUsanLab ingresos sabeNumeroEquipos equiposRobustos internationalPartners patentes
24
- 86
- 24
In [220]:
dim(b$x)
- 86
- 24
In [417]:
conjunto <- list()
for ( i in 1:length(questions) ) {
var <- b$x[,i]
if (max(var) == 1 & min(var) == 0) {
lbls <- levels(var)
pie(table(var), labels = c("no","si"), main=names(t)[questions[i]], col=c("red","green"))
} else {
par(mfrow=c(1,2))
options(repr.plot.width=8, repr.plot.height=3)
hist(var,
xlab=names(t)[questions[i]],
ylab="Frecuencia",
main="",
border="white",
col="blue",
xlim=c(0,max(b$x[,i])),
las=1,
breaks=20)
boxplot(var, main=names(t)[questions[i]])
q <- quantile(var, na.rm=TRUE )
F <- var > q[3]
conjunto[[i]] <- nombreLab[F,1]
sum( F, na.rm=TRUE )
}
}
In [222]:
length(conjunto)
conjunto
20
- Microbilogia y Biotecnologia Ambiental
- LICAP
- Laboratorio de Microbiologia y Bioanalisis
- Laboratorio Histologia
- Laboratorio de anatomia
- Laboratorio Clinica Universidad del Valle
- Laboratorio de habilidades y destrezas en odontologia
- Laboratorio Clinicas Odontologicas
- Laboratorio de Analisis, recuperacion y optimizacion del movimiento humano
- Laboratorio de Diagnostico de Agentes Biologicos
- Bioquimica pregrado
- Laboratorio Fisiologia Pregrado
- LABORATORIO DE FONOAUDIOLOGIA
- Laboratorio de Estructuras
- Laboratorio de Aguas Instituto Cinara
- Laboratorio de Circuitos Electricos y Medidas
- Laboratorio de Espectroscopia
- Centro de computo grupo Fisica Teorica del Estado Solido.
- EVALAB
- Laboratorio de Automatica
- Laboratorio de Descubrimiento en Bases de Datos (KDD)
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- Lab. de Robotica Movil
- Bioinformatica y biocompuatcion
- laboratorio de transformadores
- Diseno de circuitos y sistemas electronicos
- Vision Artificial, Procesamiento de Senales
- Laboratorio de Termodinamica Aplicada.
- Laboratorios de docencia de biologia
- GEOPOSICIONAMIENTO
- Laboratorio Combustion Combustibles
- Cedesoft
- Espectroscopia Mossbauer
- Laboratorio Analisis Industriales (LAI)
- Genetica Molecular Humana
- SIMRQO
- Alta Tension
- Laboratorio de Semillas
- Laboratorio de preparaciones biologicas
- Transiciones de Fase en sistemas no met\303\240licos
- Microbilogia y Biotecnologia Ambiental
- Secuenciales y Sistemas de tiempo real
- LICAP
- Laboratorio de Microbiologia y Bioanalisis
- Laboratorio Clinicas Odontologicas
- Laboratorio de Histologia
- Laboratorio de Diagnostico de Agentes Biologicos
- Farmacologia In Vitro
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Laboratorio de Estructuras
- Centro de computo grupo Fisica Teorica del Estado Solido.
- EVALAB
- LABORATORIO DE DOCENCIA - SEGUNDO PISO
- Laboratorio de Descubrimiento en Bases de Datos (KDD)
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Laboratorio en Vibraciones y Acustica (LaVA)
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- Lab. de Robotica Movil
- Bioinformatica y biocompuatcion
- Diseno de circuitos y sistemas electronicos
- Vision Artificial, Procesamiento de Senales
- Laboratorios de docencia de biologia
- Caracterizacion mecanica y microestructural de materiales
- Cedesoft
- Espectroscopia Mossbauer
- Laboratorio de Optica
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
- Laboratorio Analisis Industriales (LAI)
- Laboratorio de investigacion en Productos naturales y Alimentos
- Genetica Molecular Humana
- SIMRQO
- Laboratorio "Quimica de las fracciones pesadas"
- Alta Tension
- Laboratorio de preparaciones biologicas
- Laboratorio de Difraccion de Rayos X
- Transiciones de Fase en sistemas no met\303\240licos
- LICAP
- Laboratorio de Microbiologia y Bioanalisis
- Laboratorio Histologia
- Laboratorio de Fisiologia de Postgrado
- Laboratorio de habilidades y destrezas en odontologia
- Laboratorio Clinicas Odontologicas
- Hospital simulado
- Laboratorio de Histologia
- Laboratorio de Diagnostico de Agentes Biologicos
- Bioquimica postgrado
- Laboratorio Fisiologia Pregrado
- LABORATORIO DE FONOAUDIOLOGIA
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Laboratorio de Estructuras
- Laboratorio de Circuitos Electricos y Medidas
- EVALAB
- Laboratorio de Automatica
- LABORATORIO DE DOCENCIA - SEGUNDO PISO
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- LABORATORIO DE CONVERSION DE ENERGIA - FUENTES ALTERNAS Y USO RACIONAL DE ENERGIA
- Laboratorios de docencia de biologia
- Laboratorio Combustion Combustibles
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
- Laboratorio Analisis Industriales (LAI)
- Microbilogia y Biotecnologia Ambiental
- Secuenciales y Sistemas de tiempo real
- Laboratorio de Microbiologia y Bioanalisis
- Laboratorio Histologia
- Laboratorio de anatomia
- Laboratorio de habilidades y destrezas en odontologia
- Laboratorio Clinicas Odontologicas
- Hospital simulado
- Laboratorio de Terapia Ocupacional
- Laboratorio de Analisis, recuperacion y optimizacion del movimiento humano
- Laboratorio de Diagnostico de Agentes Biologicos
- Patologia
- Bioquimica pregrado
- Bioquimica postgrado
- Laboratorio Fisiologia Pregrado
- LABORATORIO DE FONOAUDIOLOGIA
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Laboratorio Quimica Ambiental - Docencia
- Laboratorio de Estructuras
- Laboratorio de Circuitos Electricos y Medidas
- Laboratorio de Espectroscopia
- EVALAB
- Laboratorio de Automatica
- LABORATORIO DE DOCENCIA - SEGUNDO PISO
- Laboratorio de Descubrimiento en Bases de Datos (KDD)
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- Lab. de Robotica Movil
- LABORATORIO DE CONVERSION DE ENERGIA - FUENTES ALTERNAS Y USO RACIONAL DE ENERGIA
- laboratorio de transformadores
- Vision Artificial, Procesamiento de Senales
- Laboratorio de Metrologia Electrica
- Laboratorios de docencia de biologia
- Multimedia y Vision
- GEOPOSICIONAMIENTO
- Laboratorio Combustion Combustibles
- Caracterizacion mecanica y microestructural de materiales
- Laboratorio de Secuenciales y Sistemas de tiempo real
- Cedesoft
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
- Laboratorio Analisis Industriales (LAI)
- Alta Tension
- laboratorio del Grupo de Investigaciones Entomologicas
- Laboratorio de preparaciones biologicas
- Microbilogia y Biotecnologia Ambiental
- Secuenciales y Sistemas de tiempo real
- LICAP
- Laboratorio de anatomia
- Laboratorio de Fisiologia de Postgrado
- Laboratorio de habilidades y destrezas en odontologia
- Laboratorio Clinicas Odontologicas
- Laboratorio de Histologia
- Patologia
- Bioquimica postgrado
- Laboratorio Fisiologia Pregrado
- Farmacologia In Vitro
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Grupo de Ecologia y comportamiento de insectos y servicios ecosistemicos
- Laboratorio Quimica Ambiental - Docencia
- Laboratorio de Estructuras
- Laboratorio de Ciencias con Aplicaciones Tecnologicas y Bioinorganica
- Laboratorio de Espectroscopia
- Centro de computo grupo Fisica Teorica del Estado Solido.
- EVALAB
- Laboratorio de Automatica
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Laboratorio en Vibraciones y Acustica (LaVA)
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- LABORATORIO DE CONVERSION DE ENERGIA - FUENTES ALTERNAS Y USO RACIONAL DE ENERGIA
- Bioinformatica y biocompuatcion
- Diseno de circuitos y sistemas electronicos
- Vision Artificial, Procesamiento de Senales
- Laboratorios de docencia de biologia
- Laboratorio Combustion Combustibles
- Caracterizacion mecanica y microestructural de materiales
- Laboratorio de Secuenciales y Sistemas de tiempo real
- Cedesoft
- Espectroscopia Mossbauer
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
- Laboratorio Analisis Industriales (LAI)
- Genetica Molecular Humana
- SIMRQO
- Alta Tension
- Transiciones de Fase en sistemas no met\303\240licos
- Microbilogia y Biotecnologia Ambiental
- Laboratorio de Biologia Molecular
- Laboratorio de malacologia
- LICAP
- Laboratorio de Fisiologia de Postgrado
- Laboratorio de Histologia
- Laboratorio de Diagnostico de Agentes Biologicos
- Patologia
- Bioquimica pregrado
- Bioquimica postgrado
- Laboratorio Fisiologia Pregrado
- Farmacologia In Vitro
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Grupo de Ecologia y comportamiento de insectos y servicios ecosistemicos
- Laboratorio de Estructuras
- Laboratorio de Aguas Instituto Cinara
- Laboratorio de Espectroscopia
- Centro de computo grupo Fisica Teorica del Estado Solido.
- CibioFi
- Laboratorio de Automatica
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- Lab. de Robotica Movil
- LABORATORIO DE CONVERSION DE ENERGIA - FUENTES ALTERNAS Y USO RACIONAL DE ENERGIA
- Bioinformatica y biocompuatcion
- Diseno de circuitos y sistemas electronicos
- Vision Artificial, Procesamiento de Senales
- Laboratorio de Termodinamica Aplicada.
- Laboratorios de docencia de biologia
- Laboratorio Combustion Combustibles
- Caracterizacion mecanica y microestructural de materiales
- Laboratorio de Secuenciales y Sistemas de tiempo real
- Cedesoft
- Espectroscopia Mossbauer
- Laboratorio de Optica
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
- Fisiologia animal
- LABORATORIO GICAMP
- Laboratorio Analisis Industriales (LAI)
- Laboratorio de investigacion en Productos naturales y Alimentos
- Genetica Molecular Humana
- Alta Tension
- Laboratorio de preparaciones biologicas
- Microbilogia y Biotecnologia Ambiental
- Laboratorio de malacologia
- Ecosistemas Rocosos
- LICAP
- Laboratorio de anatomia
- Laboratorio de habilidades y destrezas en odontologia
- Laboratorio Clinicas Odontologicas
- Laboratorio de Histologia
- Bioquimica postgrado
- Farmacologia In Vitro
- Laboratorio de Ciencias con Aplicaciones Tecnologicas y Bioinorganica
- Laboratorio de Espectroscopia
- LABORATORIO DE DOCENCIA - SEGUNDO PISO
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- PEQUENAS CENTRALES HIDROELECTRICAS
- Multimedia y Vision
- Laboratorio Combustion Combustibles
- Genetica Molecular Humana
- NULL
- NULL
- NULL
- NULL
- Microbilogia y Biotecnologia Ambiental
- Laboratorio de Histologia
- Laboratorio de Metrologia Electrica
- Laboratorio Analisis Industriales (LAI)
- Alta Tension
- NULL
- NULL
- NULL
- NULL
- Laboratorio de Semillas
- Laboratorio de Difraccion de Rayos X
- Transiciones de Fase en sistemas no met\303\240licos
- Microbilogia y Biotecnologia Ambiental
- Laboratorio Histologia
- Laboratorio de Fisiologia de Postgrado
- Laboratorio Clinica Universidad del Valle
- Farmacologia In Vitro
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Laboratorio de Aguas Instituto Cinara
- Laboratorio de Circuitos Electricos y Medidas
- Laboratorio de Automatica
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Bioinformatica y biocompuatcion
- laboratorio de transformadores
- Laboratorio de Metrologia Electrica
- Laboratorio de Termodinamica Aplicada.
- Laboratorios de docencia de biologia
- Laboratorio Combustion Combustibles
- Caracterizacion mecanica y microestructural de materiales
- Laboratorio de Microbiologia Industrial y Ambiental
- Fisiologia animal
- Laboratorio Analisis Industriales (LAI)
- Laboratorio de investigacion en Productos naturales y Alimentos
- Genetica Molecular Humana
- SIMRQO
- Laboratorio de Ictiologia
- Alta Tension
- laboratorio del Grupo de Investigaciones Entomologicas
- Transiciones de Fase en sistemas no met\303\240licos
- Laboratorio de malacologia
- LICAP
- Laboratorio de anatomia
- Laboratorio de Fisiologia de Postgrado
- Laboratorio Clinicas Odontologicas
- Laboratorio de Histologia
- Laboratorio de Diagnostico de Agentes Biologicos
- Patologia
- Bioquimica postgrado
- Farmacologia In Vitro
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Grupo de Ecologia y comportamiento de insectos y servicios ecosistemicos
- Laboratorio de Ciencias con Aplicaciones Tecnologicas y Bioinorganica
- Laboratorio de Espectroscopia
- Centro de computo grupo Fisica Teorica del Estado Solido.
- CibioFi
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Laboratorio en Vibraciones y Acustica (LaVA)
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- Lab. de Robotica Movil
- Vision Artificial, Procesamiento de Senales
- Multimedia y Vision
- Caracterizacion mecanica y microestructural de materiales
- Espectroscopia Mossbauer
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
- Laboratorio de Investigaciones Microbiologicas (LIM)
- Laboratorio Analisis Industriales (LAI)
- Genetica Molecular Humana
- SIMRQO
- Alta Tension
- Laboratorio de preparaciones biologicas
- Laboratorio de Difraccion de Rayos X
- Microbilogia y Biotecnologia Ambiental
- Laboratorio de Biologia Molecular
- Laboratorio de Fisiologia de Postgrado
- Laboratorio Clinicas Odontologicas
- Laboratorio de Terapia Ocupacional
- Laboratorio de Histologia
- Laboratorio de Diagnostico de Agentes Biologicos
- Bioquimica postgrado
- Farmacologia In Vitro
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Laboratorio de Aguas Instituto Cinara
- Laboratorio de Ciencias con Aplicaciones Tecnologicas y Bioinorganica
- Laboratorio de Espectroscopia
- CibioFi
- Laboratorio de Automatica
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Laboratorios de docencia de biologia
- Laboratorio Combustion Combustibles
- Cedesoft
- Espectroscopia Mossbauer
- Laboratorio de Optica
- LABORATORIO GICAMP
- Laboratorio de Investigaciones Microbiologicas (LIM)
- Laboratorio Analisis Industriales (LAI)
- Laboratorio de investigacion en Productos naturales y Alimentos
- Genetica Molecular Humana
- laboratorio del Grupo de Investigaciones Entomologicas
- Transiciones de Fase en sistemas no met\303\240licos
- Microbilogia y Biotecnologia Ambiental
- LICAP
- Laboratorio de Fisiologia de Postgrado
- Laboratorio Clinica Universidad del Valle
- Laboratorio Clinicas Odontologicas
- Laboratorio de Analisis, recuperacion y optimizacion del movimiento humano
- Laboratorio de Diagnostico de Agentes Biologicos
- Patologia
- Bioquimica postgrado
- Laboratorio de Estructuras
- Laboratorio de Aguas Instituto Cinara
- CibioFi
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Laboratorio en Vibraciones y Acustica (LaVA)
- LIBB - Lab.de Investigacion en Biocatalisis y Biotransformaciones.
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- Laboratorio de Metrologia Electrica
- Laboratorio de Termodinamica Aplicada.
- Laboratorios de docencia de biologia
- Laboratorio Combustion Combustibles
- Laboratorio de Microbiologia Industrial y Ambiental
- Cedesoft
- Espectroscopia Mossbauer
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
- Fisiologia animal
- Laboratorio de Investigaciones Microbiologicas (LIM)
- Laboratorio Analisis Industriales (LAI)
- Laboratorio de investigacion en Productos naturales y Alimentos
- Laboratorio de Ictiologia
- Laboratorio "Quimica de las fracciones pesadas"
- Alta Tension
In [223]:
C <- nombreLab[as.numeric(names(which(table(unlist(conjunto)) > 4))),1]
data.frame(C)
C laboratorio del Grupo de Investigaciones Entomologicas Laboratorio de preparaciones biologicas Transiciones de Fase en sistemas no metlicos Laboratorio de Biologia Molecular Laboratorio de malacologia Secuenciales y Sistemas de tiempo real Ecosistemas Rocosos Laboratorio Histologia Farmacologia Laboratorio Clinica Universidad del Valle Hospital simulado Farmacologia In Vitro LABORATORIO DE FONOAUDIOLOGIA motores y potencia Laboratorio Quimica Ambiental - Docencia Laboratorio de Estructuras Laboratorio de Aguas Instituto Cinara Biomecanica Laboratorio de Espectroscopia Centro de computo grupo Fisica Teorica del Estado Solido. Laboratorio de Descubrimiento en Bases de Datos (KDD) Recubrimientos Duros y Aplicaciones Industriales RDAI Laboratorio en Vibraciones y Acustica (LaVA) LIBB - Lab.de Investigacion en Biocatalisis y Biotransformaciones. Lab. de Robotica Movil Laboratorio de Geologia y mecanica de rocas Bioinformatica y biocompuatcion Redes y Sistemas Distribuidos Laboratorio Combustion Combustibles Laboratorio de Secuenciales y Sistemas de tiempo real Espectroscopia Mossbauer Laboratorio de Optica Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE Laboratorio de Investigaciones Microbiologicas (LIM) Laboratorio Analisis Industriales (LAI) Genetica Molecular Humana Laboratorio de Ictiologia Laboratorio "Quimica de las fracciones pesadas"
In [224]:
length(C)
length( unique(unlist(conjunto)) )
table(unlist(conjunto))
38
78
2 3 5 6 7 8 9 10 11 13 14 15 16 18 19 20 21 23 24 25 26 27 28 29 30 31
9 5 8 3 7 6 7 5 4 4 5 1 7 7 3 2 8 3 2 4 4 3 2 1 8 5
32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 54 55 56 57 58
2 11 3 9 9 5 4 2 5 5 3 7 2 4 4 3 8 3 7 7 7 8 2 7 9 3
59 60 61 62 63 64 65 66 67 68 69 70 72 73 74 75 76 77 78 79 81 82 83 84 85 86
4 2 4 3 3 2 2 4 5 5 3 5 4 8 9 10 3 1 5 7 5 3 6 6 3 3
In [ ]:
we go for outliers, we don't scale the data
In [225]:
pca <- prcomp(b$x)
In [226]:
options(repr.plot.width=8, repr.plot.height=4, repr.plot.res=600)
op <- par(mar = c(4,4,2,2))
par(mfrow=c(1,2))
plot(pca$x[,1], pca$x[,2], xlab="PC1", ylab="PC2", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,2], labels=rownames(nombreLab), cex= 0.5, pos=2)
legend(5, 2, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
plot(pca$x[,1], pca$x[,3], xlab="PC1", ylab="PC3", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,3], labels=rownames(nombreLab), cex= 0.5, pos=2)
legend(5, -1, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
par(op)
In [227]:
options(repr.plot.width=8, repr.plot.height=4)
op <- par(mar = c(4,4,3,1))
par(mfrow=c(1,2))
biplot(pca,cex=0.8,cex.lab=1,cex.axis=0.8)
biplot(pca,choices = c(1,3),cex=0.8,cex.lab=1,cex.axis=0.8)
par(op)
Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"Warning message in arrows(0, 0, y[, 1L] * 0.8, y[, 2L] * 0.8, col = col[2L], length = arrow.len):
"zero-length arrow is of indeterminate angle and so skipped"
In [228]:
options(repr.plot.width=8, repr.plot.height=3)
op <- par(mar = c(14,3,2,1))
par(mfrow=c(1,3))
barplot(pca$rotation[,1], col="black", las=2)
barplot(pca$rotation[,2], col="red", las=2)
barplot(pca$rotation[,3], col="blue", las=2)
par(op)
In [229]:
length(nombreLab[,])
86
we should now scale the data
In [230]:
pca <- prcomp(scale(b$x, center=TRUE))
In [231]:
options(repr.plot.width=8, repr.plot.height=4)
op <- par(mar = c(4,4,2,2))
par(mfrow=c(1,2))
plot(pca$x[,1], pca$x[,2], xlab="PC1", ylab="PC2", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,2], labels=rownames(b$x), cex= 0.5, pos=2)
legend(5, 2, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
plot(pca$x[,1], pca$x[,3], xlab="PC1", ylab="PC3", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,3], labels=rownames(b$x), cex= 0.5, pos=2)
legend(5, -1, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
par(op)
In [232]:
options(repr.plot.width=8, repr.plot.height=4)
op <- par(mar = c(4,4,3,1))
par(mfrow=c(1,2))
biplot(pca,cex=0.8,cex.lab=1,cex.axis=0.8)
biplot(pca,choices = c(1,3),cex=0.8,cex.lab=1,cex.axis=0.8)
par(op)
In [233]:
nombreLab[c(62,86,41,20,15,64,75,2,53),1]
length(nombreLab[,1])
rownames(b$x)
- Laboratorio de Metrologia Electrica
- Alta Tension
- Laboratorio de Espectroscopia
- Laboratorio Clinicas Odontologicas
- Laboratorio de anatomia
- Laboratorios de docencia de biologia
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
- laboratorio del Grupo de Investigaciones Entomologicas
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
86
- '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'
- '78'
- '79'
- '80'
- '81'
- '82'
- '83'
- '84'
- '85'
- '86'
In [234]:
options(repr.plot.width=8, repr.plot.height=3)
op <- par(mar = c(14,3,2,1))
par(mfrow=c(1,3))
barplot(pca$rotation[,1], col="black", las=2)
barplot(pca$rotation[,2], col="red", las=2)
barplot(pca$rotation[,3], col="blue", las=2)
par(op)
In [335]:
docencia <- c(1:8,14)
data.frame("preguntas"=names(t)[questions[docencia]])
preguntas visitantesDia personasLaborandoMes profNombradosMes estudiantesPregrado estudiantesMaestria estudiantesDoctorado pasantesInternacionales sistemaGestion consumoInsumos
In [334]:
calidad <- c(8:17, 19:21)
data.frame("preguntas"=names(t)[questions[calidad]])
preguntas sistemaGestion manuelProcesos mantenimientoPredictivo pruebaAcreditada cuentasPruebasAcreditadas consumoMensual consumoInsumos inventario contingencia metrologico cuantosGruposUsanLab ingresos sabeNumeroEquipos
In [332]:
investigacion <- c(1,2,3:7,18:20,22:24)
data.frame("preguntas"=names(t)[questions[investigacion]])
preguntas visitantesDia personasLaborandoMes profNombradosMes estudiantesPregrado estudiantesMaestria estudiantesDoctorado pasantesInternacionales articulos cuantosGruposUsanLab ingresos equiposRobustos internationalPartners patentes
In [347]:
pca <- prcomp(scale(b$x[,docencia], scale=TRUE, center=TRUE))
options(repr.plot.width=10, repr.plot.height=4)
plot(pca$x[,1], pca$x[,2], xlab="PC1", ylab="PC2", cex=0.7, pch=1, main="docencia")
text(pca$x[,1], pca$x[,2], labels=unlist(nombreLab), cex= 0.3, pos=3)
options(repr.plot.width=8, repr.plot.height=4)
#png(file="/Users/jul/git/chemometrics/img/pca12.png", bg="transparent", res=300, width=1000, height=1000)
op <- par(mar = c(4,4,3,1))
par(mfrow=c(1,2))
biplot(pca,cex=0.8,cex.lab=1,cex.axis=0.8)
biplot(pca,choices = c(1,3),cex=0.8,cex.lab=1,cex.axis=0.8)
par(op)
#dev.off()
options(repr.plot.width=8, repr.plot.height=4)
op <- par(mar = c(4,4,2,2))
par(mfrow=c(1,2))
plot(pca$x[,1], pca$x[,2], xlab="PC1", ylab="PC2", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,2], labels=rownames(b$x), cex= 0.5, pos=2)
legend(5, 2, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
plot(pca$x[,1], pca$x[,3], xlab="PC1", ylab="PC3", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,3], labels=rownames(b$x), cex= 0.5, pos=2)
legend(5, -1, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
par(op)
options(repr.plot.width=8, repr.plot.height=3)
op <- par(mar = c(14,3,2,1))
par(mfrow=c(1,3))
barplot(pca$rotation[,1], col="black", las=2)
barplot(pca$rotation[,2], col="red", las=2)
barplot(pca$rotation[,3], col="blue", las=2)
par(op)
In [ ]:
In [426]:
pca <- prcomp(scale(b$x[,calidad], scale=TRUE, center=TRUE))
options(repr.plot.width=10, repr.plot.height=4)
plot(pca$x[,1], pca$x[,2], xlab="PC1", ylab="PC2", cex=0.7, pch=1)
text(pca$x[,1], pca$x[,2], labels=unlist(nombreLab), cex= 0.3, pos=3)
options(repr.plot.width=8, repr.plot.height=4)
#png(file="/Users/jul/git/chemometrics/img/pca12.png", bg="transparent", res=300, width=1000, height=1000)
op <- par(mar = c(4,4,3,1))
par(mfrow=c(1,2))
biplot(pca,cex=0.8,cex.lab=1,cex.axis=0.8)
biplot(pca,choices = c(1,3),cex=0.8,cex.lab=1,cex.axis=0.8)
par(op)
#dev.off()
options(repr.plot.width=8, repr.plot.height=4)
op <- par(mar = c(4,4,2,2))
par(mfrow=c(1,2))
plot(pca$x[,1], pca$x[,2], xlab="PC1", ylab="PC2", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,2], labels=rownames(b$x), cex= 0.5, pos=2)
legend(5, 2, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
plot(pca$x[,1], pca$x[,3], xlab="PC1", ylab="PC3", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,3], labels=rownames(b$x), cex= 0.5, pos=2)
legend(5, -1, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
par(op)
options(repr.plot.width=8, repr.plot.height=3)
op <- par(mar = c(14,3,2,1))
par(mfrow=c(1,3))
barplot(pca$rotation[,1], col="black", las=2)
barplot(pca$rotation[,2], col="red", las=2)
barplot(pca$rotation[,3], col="blue", las=2)
par(op)
options(repr.plot.width=8, repr.plot.height=3)
d <- dist(b$x[-41,calidad], method = "euclidean")
# Hierarchical clustering using Ward's method
res.hc <- hclust(d, method = "ward.D2" )
# Cut tree into 4 groups
grp <- cutree(res.hc, k = 3)
# Visualize
plot(res.hc, cex = 0.6) # plot tree
rect.hclust(res.hc, k = 3, border = 2:5) # add rectangle
In [ ]:
In [427]:
pca <- prcomp(scale(b$x[-41,investigacion], scale=TRUE, center=TRUE))
options(repr.plot.width=10, repr.plot.height=4)
plot(pca$x[,1], pca$x[,2], xlab="PC1", ylab="PC2", cex=0.7, pch=1)
text(pca$x[,1], pca$x[,2], labels=unlist(nombreLab), cex= 0.3, pos=3)
options(repr.plot.width=8, repr.plot.height=4)
#png(file="/Users/jul/git/chemometrics/img/pca12.png", bg="transparent", res=300, width=1000, height=1000)
op <- par(mar = c(4,4,3,1))
par(mfrow=c(1,2))
biplot(pca,cex=0.8,cex.lab=1,cex.axis=0.8)
biplot(pca,choices = c(1,3),cex=0.8,cex.lab=1,cex.axis=0.8)
par(op)
#dev.off()
options(repr.plot.width=8, repr.plot.height=4)
op <- par(mar = c(4,4,2,2))
par(mfrow=c(1,2))
plot(pca$x[,1], pca$x[,2], xlab="PC1", ylab="PC2", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,2], labels=rownames(b$x), cex= 0.5, pos=2)
legend(5, 2, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
plot(pca$x[,1], pca$x[,3], xlab="PC1", ylab="PC3", type='p', col=as.numeric(unlist(t[19])))
text(pca$x[,1], pca$x[,3], labels=rownames(b$x), cex= 0.5, pos=2)
legend(5, -1, c("NA","D+E","D+I","D+I+E","I+E","D","E","I"),
pch=rep(2,2,2,2,2,2,2,2)-1, col=c(1,2,3,4,5,6,7,8), cex=0.7)
par(op)
options(repr.plot.width=8, repr.plot.height=3)
op <- par(mar = c(14,3,2,1))
par(mfrow=c(1,3))
barplot(pca$rotation[,1], col="black", las=2)
barplot(pca$rotation[,2], col="red", las=2)
barplot(pca$rotation[,3], col="blue", las=2)
par(op)
options(repr.plot.width=10, repr.plot.height=4)
#rownames(b$x) <- unlist(t[17])#[-outliers]
d <- dist(b$x[-41,investigacion], method = "euclidean")
# Hierarchical clustering using Ward's method
res.hc <- hclust(d, method = "ward.D2" )
# Cut tree into 4 groups
grp <- cutree(res.hc, k = 3)
# Visualize
plot(res.hc, cex = 0.6) # plot tree
rect.hclust(res.hc, k = 3, border = 2:5) # add rectangle
In [ ]:
In [350]:
options(repr.plot.width=10, repr.plot.height=8)
Nclust<-3
mydata <- scale(b$x[,investigacion], center=TRUE)
#rownames(mydata$x) <- unlist(nombreLab)
d <- dist(mydata, method = "euclidean") # distance matrix
fit <- hclust(d, method="ward.D2")
plot(fit, cex=0.5) # display dendogram
groups <- cutree(fit, k=Nclust) # cut tree into 3 clusters
rect.hclust(fit, k=Nclust, border="red")
In [353]:
library(dendextend)
labels_colors(fit) <- colorCodes[c(1,2,3)][order.dendrogram(fit)]
plot(fit)
Error in eval(expr, envir, enclos): object 'colorCodes' not found
Traceback:
In [242]:
summary(fit)
Length Class Mode
merge 170 -none- numeric
height 85 -none- numeric
order 86 -none- numeric
labels 86 -none- character
method 1 -none- character
call 3 -none- call
dist.method 1 -none- character
In [243]:
unlist(nombreLab)[ cutree(fit, k=3) == 2 ]
unlist(nombreLab)[ cutree(fit, k=3) == 3 ]
- Nombre.del.laboratorio5
- Transiciones de Fase en sistemas no met\303\240licos
- Nombre.del.laboratorio6
- Microbilogia y Biotecnologia Ambiental
- Nombre.del.laboratorio23
- Laboratorio de Histologia
- Nombre.del.laboratorio32
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Nombre.del.laboratorio37
- Laboratorio de Aguas Instituto Cinara
- Nombre.del.laboratorio41
- Laboratorio de Espectroscopia
- Nombre.del.laboratorio49
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Nombre.del.laboratorio50
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Nombre.del.laboratorio53
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- Nombre.del.laboratorio57
- Bioinformatica y biocompuatcion
- Nombre.del.laboratorio62
- Laboratorio de Metrologia Electrica
- Nombre.del.laboratorio63
- Laboratorio de Termodinamica Aplicada.
- Nombre.del.laboratorio68
- Laboratorio Combustion Combustibles
- Nombre.del.laboratorio69
- Caracterizacion mecanica y microestructural de materiales
- Nombre.del.laboratorio79
- Laboratorio Analisis Industriales (LAI)
- Nombre.del.laboratorio80
- Laboratorio de investigacion en Productos naturales y Alimentos
- Nombre.del.laboratorio86
- Alta Tension
- Nombre.del.laboratorio15
- Laboratorio de anatomia
- Nombre.del.laboratorio20
- Laboratorio Clinicas Odontologicas
- Nombre.del.laboratorio46
- Laboratorio de Automatica
- Nombre.del.laboratorio64
- Laboratorios de docencia de biologia
In [ ]:
In [244]:
options(repr.plot.width=10, repr.plot.height=4)
# Model Based Clustering
library(mclust)
fit <- Mclust(mydata)
#plot(fit) # plot results
#summary(fit) # display the best model
In [247]:
options(repr.plot.width=6, repr.plot.height=6)
fit <- stats::kmeans( scale(b$x) , 3)
# Cluster Plot against 1st 2 principal components
# vary parameters for most readable graph
library(cluster)
cluster::clusplot(mydata, fit$cluster, color=TRUE, shade=TRUE,
labels=2, lines=0, cex=0.5)
In [248]:
options(repr.plot.width=5, repr.plot.height=5)
# Centroid Plot against 1st 2 discriminant functions
library(fpc)
options(repr.plot.width=10, repr.plot.height=3)
plotcluster(mydata, fit$cluster)
In [ ]:
In [249]:
nombreLab[[1]][fit$cluster == 3]
- Laboratorio de Semillas
- laboratorio del Grupo de Investigaciones Entomologicas
- Laboratorio de preparaciones biologicas
- Laboratorio de Difraccion de Rayos X
- Laboratorio de Biologia Molecular
- Laboratorio de malacologia
- Secuenciales y Sistemas de tiempo real
- Laboratorio de Microbiologia y Bioanalisis
- Citogenetica y Biologia del Desarrollo
- Farmacologia
- Laboratorio Clinica Universidad del Valle
- Laboratorio de habilidades y destrezas en odontologia
- Laboratorio de Analisis, recuperacion y optimizacion del movimiento humano
- Patologia
- Bioquimica pregrado
- Bioquimica postgrado
- Laboratorio Fisiologia Pregrado
- LABORATORIO DE FONOAUDIOLOGIA
- motores y potencia
- Grupo de Ecologia y comportamiento de insectos y servicios ecosistemicos
- Laboratorio Quimica Ambiental - Docencia
- Laboratorio de Estructuras
- Laboratorio de Ciencias con Aplicaciones Tecnologicas y Bioinorganica
- Laboratorio de Circuitos Electricos y Medidas
- Gisiomca
- Centro de computo grupo Fisica Teorica del Estado Solido.
- CibioFi
- EVALAB
- Laboratorio de Descubrimiento en Bases de Datos (KDD)
- Laboratorio en Vibraciones y Acustica (LaVA)
- LIBB - Lab.de Investigacion en Biocatalisis y Biotransformaciones.
- Lab. de Robotica Movil
- Laboratorio de Geologia y mecanica de rocas
- Bioinformatica y biocompuatcion
- laboratorio de transformadores
- Diseno de circuitos y sistemas electronicos
- Vision Artificial, Procesamiento de Senales
- PEQUENAS CENTRALES HIDROELECTRICAS
- Multimedia y Vision
- GEOPOSICIONAMIENTO
- Redes y Sistemas Distribuidos
- Laboratorio de Secuenciales y Sistemas de tiempo real
- Laboratorio de Microbiologia Industrial y Ambiental
- Cedesoft
- Laboratorio de Optica
- Fisiologia animal
- LABORATORIO GICAMP
- Laboratorio de Investigaciones Microbiologicas (LIM)
- Genetica Molecular Humana
- SIMRQO
- Laboratorio de Ictiologia
- Laboratorio "Quimica de las fracciones pesadas"
- Laboratorio del Grupo de Electroquimica
In [250]:
nombreLab[[1]][fit$cluster == 1]
- Ecosistemas Rocosos
- LICAP
- Laboratorio Histologia
- Laboratorio de anatomia
- Hospital simulado
- Laboratorio de Terapia Ocupacional
- Laboratorio de Diagnostico de Agentes Biologicos
- Biomecanica
- LABORATORIO DE DOCENCIA - SEGUNDO PISO
- LABORATORIO DE CONVERSION DE ENERGIA - FUENTES ALTERNAS Y USO RACIONAL DE ENERGIA
- Laboratorios de docencia de biologia
- Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE
In [251]:
nombreLab[[1]][fit$cluster == 2]
- Transiciones de Fase en sistemas no met\303\240licos
- Microbilogia y Biotecnologia Ambiental
- Laboratorio de Fisiologia de Postgrado
- Laboratorio Clinicas Odontologicas
- Laboratorio de Histologia
- Farmacologia In Vitro
- Laboratorio intermedio de investigacion preclinica y bioterio de murinos
- Laboratorio de Aguas Instituto Cinara
- Laboratorio de Espectroscopia
- Laboratorio de Automatica
- CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM
- Recubrimientos Duros y Aplicaciones Industriales RDAI
- Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ
- Laboratorio de Metrologia Electrica
- Laboratorio de Termodinamica Aplicada.
- Laboratorio Combustion Combustibles
- Caracterizacion mecanica y microestructural de materiales
- Espectroscopia Mossbauer
- Laboratorio Analisis Industriales (LAI)
- Laboratorio de investigacion en Productos naturales y Alimentos
- Alta Tension
In [252]:
library("cluster")
library("factoextra")
library("reshape")
#data <- scale( matrix( as.numeric(b2), 86, 20 ), center=TRUE )
#dim(data)
In [253]:
options(repr.plot.width=6, repr.plot.height=4)
res.dist <- get_dist(b$x, stand = TRUE, method = "pearson")
In [ ]:
In [254]:
qplot(x=X2, y=X1, data=melt(cor(mydata)), fill=value, geom="tile")
In [255]:
qplot(x=X1, y=X2, data=melt(cor(t(mydata))), fill=value, geom="tile")
In [256]:
#options(repr.plot.width=10, repr.plot.height=3)
#fviz_nbclust(data, kmeans, method = "gap_stat")
In [257]:
#km.res <- kmeans(data, 3, nstart = 25)
In [258]:
#fviz_cluster(km.res, data = data, ellipse.type = "convex")+theme_minimal()
In [259]:
#pam.res <- pam(data, 3)
In [264]:
#fviz_cluster(pam.res)
In [267]:
options(repr.plot.width=10, repr.plot.height=10)
#rownames(b$x) <- unlist(t[17])#[-outliers]
d <- dist(b$x, method = "euclidean")
# Hierarchical clustering using Ward's method
res.hc <- hclust(d, method = "ward.D2" )
# Cut tree into 4 groups
grp <- cutree(res.hc, k = 3)
# Visualize
plot(res.hc, cex = 0.6) # plot tree
rect.hclust(res.hc, k = 3, border = 2:5) # add rectangle
In [421]:
rownames(nombreLab) <- c(1:86)
data.frame("laboratorio"=nombreLab[grp == 2,1])
laboratorio Microbilogia y Biotecnologia Ambiental LICAP Laboratorio Clinicas Odontologicas Patologia CibioFi CENTRO DE EXCELENCIA DE NUEVOS MATERIALES CENM Laboratorio en Vibraciones y Acustica (LaVA) Laboratorio de Investigacion en procesos quimicos y biologicos - laboratorio de docencia e investigacion de la EIQ Laboratorio de Termodinamica Aplicada. Laboratorio Combustion Combustibles Cedesoft Alta Tension
In [422]:
data.frame("laboratorio"=nombreLab[grp == 1,1])
laboratorio Laboratorio de Semillas laboratorio del Grupo de Investigaciones Entomologicas Laboratorio de preparaciones biologicas Laboratorio de Difraccion de Rayos X Transiciones de Fase en sistemas no metlicos Laboratorio de Biologia Molecular Laboratorio de malacologia Secuenciales y Sistemas de tiempo real Ecosistemas Rocosos Laboratorio de Microbiologia y Bioanalisis Citogenetica y Biologia del Desarrollo Laboratorio Histologia Farmacologia Laboratorio de Fisiologia de Postgrado Laboratorio Clinica Universidad del Valle Laboratorio de habilidades y destrezas en odontologia Hospital simulado Laboratorio de Terapia Ocupacional Laboratorio de Histologia Laboratorio de Analisis, recuperacion y optimizacion del movimiento humano Laboratorio de Diagnostico de Agentes Biologicos Bioquimica pregrado Bioquimica postgrado Laboratorio Fisiologia Pregrado Farmacologia In Vitro LABORATORIO DE FONOAUDIOLOGIA Laboratorio intermedio de investigacion preclinica y bioterio de murinos motores y potencia Grupo de Ecologia y comportamiento de insectos y servicios ecosistemicos Laboratorio Quimica Ambiental - Docencia Recubrimientos Duros y Aplicaciones Industriales RDAI LIBB - Lab.de Investigacion en Biocatalisis y Biotransformaciones. Lab. de Robotica Movil LABORATORIO DE CONVERSION DE ENERGIA - FUENTES ALTERNAS Y USO RACIONAL DE ENERGIA Laboratorio de Geologia y mecanica de rocas Bioinformatica y biocompuatcion laboratorio de transformadores Diseno de circuitos y sistemas electronicos Vision Artificial, Procesamiento de Senales PEQUENAS CENTRALES HIDROELECTRICAS Laboratorio de Metrologia Electrica Multimedia y Vision GEOPOSICIONAMIENTO Redes y Sistemas Distribuidos Caracterizacion mecanica y microestructural de materiales Laboratorio de Secuenciales y Sistemas de tiempo real Laboratorio de Microbiologia Industrial y Ambiental Espectroscopia Mossbauer Laboratorio de Optica Laboratorio de Ingenieria Sismica y Dinamica Estructural - LINSE Fisiologia animal LABORATORIO GICAMP Laboratorio de Investigaciones Microbiologicas (LIM) Laboratorio Analisis Industriales (LAI) Laboratorio de investigacion en Productos naturales y Alimentos Genetica Molecular Humana SIMRQO Laboratorio de Ictiologia Laboratorio "Quimica de las fracciones pesadas" Laboratorio del Grupo de Electroquimica
In [423]:
data.frame("laboratorio"=nombreLab[grp == 3,1])
laboratorio Laboratorio de anatomia LABORATORIO DE DOCENCIA - SEGUNDO PISO Laboratorios de docencia de biologia
In [280]:
library("gplots")
options(repr.plot.width=10, repr.plot.height=5)
rownames(mydata) <- c(1:86)
#png(file = "/Users/jul/git/chemometrics/img/heatmap.png", width = 1000, height = 1000, bg="transparent")
op <- par(mar = c(4,4,0,12))
df = t( scale(mydata, center=TRUE) )
heatmap.2(df, scale = "none", col = bluered(100),
trace = "none", density.info = "none", srtCol=90)
par(op)
#dev.off()
In [281]:
library("ComplexHeatmap")
library("circlize")
In [300]:
mycol <- colorRamp2(c(-5, 0, 5), c("blue", "white", "red"))
# Define some graphics to display the distribution of columns
.hist = anno_histogram(df, gp = gpar(fill = "lightblue"))
.density = anno_density(df, type = "line", gp = gpar(col = "blue"))
ha_mix_top = HeatmapAnnotation(hist = .hist, density = .density)
# Define some graphics to display the distribution of rows
.violin = anno_density(df, type = "violin",
gp = gpar(fill = "lightblue"), which = "row")
.boxplot = anno_boxplot(df, which = "row")
ha_mix_right = HeatmapAnnotation(violin = .violin, bxplt = .boxplot,
which = "row", width = unit(4, "cm"))
In [301]:
options(repr.plot.width=10, repr.plot.height=6)
rownames(b$x)<-c(1:86)
# Combine annotation with heatmap
Heatmap(t(scale(b$x, center=TRUE)), name = "x", col = mycol,
column_names_gp = gpar(fontsize = 5),
row_names_gp = gpar(fontsize = 7),
top_annotation = ha_mix_top,
top_annotation_height = unit(5, "cm")) + ha_mix_right
In [314]:
lapply(t[,questions],function(x) as.numeric(x))
- $visitantesDia
- 1
- 7
- 6
- 4
- 8
- 10
- 8
- 7
- 6
- 4
- 15
- 50
- 3
- 40
- 80
- 8
- 6
- 10
- 40
- 200
- 8
- 7
- 8
- 30
- 35
- 7
- 70
- 4
- 10
- 8
- 14
- 8
- 1
- 8
- 4
- 15
- 9
- 8
- 20
- 3
- 25
- 5
- 15
- 1
- 10
- 50
- 1
- 12
- 1
- 10
- 7
- 2
- 28
- 10
- 6
- 3
- 15
- 20
- 10
- 22
- 5
- 4
- 10
- 92
- 0
- 25
- 4
- 16
- 2
- 8
- 6
- 15
- 10
- 3
- 3
- 4
- 5
- 8
- 15
- 5
- 12
- 12
- 6
- 0
- 4
- 12
- $personasLaborandoMes
- 11
- 6
- 10
- 3
- 12
- 15
- 8
- 6
- 15
- 8
- 15
- 20
- 6
- 1
- 1
- 4
- 6
- 8
- 6
- 12
- 6
- 4
- 20
- 6
- 25
- 7
- 8
- 7
- 1
- 10
- 2
- 10
- 2
- 8
- 2
- 10
- 7
- 8
- 0
- 2
- 3
- 5
- 15
- 6
- 30
- 2
- 41
- 12
- 3
- 15
- 12
- 2
- 35
- 15
- 8
- 3
- 10
- 1
- 10
- 22
- 1
- 8
- 3
- 13
- 0
- 5
- 6
- 8
- 10
- 3
- 6
- 20
- 15
- 12
- 58
- 7
- 7
- 0
- 12
- 9
- 15
- 12
- 6
- 10
- 4
- 15
- $profNombradosMes
- 2
- 2
- 4
- 6
- 4
- 3
- 3
- 1
- 2
- 2
- 4
- 11
- 3
- 5
- 3
- 1
- 4
- 3
- 10
- 23
- 4
- 0
- 4
- 3
- 8
- 3
- 1
- 9
- 4
- 2
- 6
- 12
- 1
- 3
- 1
- 4
- 2
- 1
- 4
- 1
- 3
- 1
- 0
- 1
- 5
- 12
- 10
- 3
- 5
- 2
- 2
- 1
- 4
- 3
- 4
- 2
- 3
- 1
- 2
- 3
- 2
- 2
- 1
- 21
- 1
- 2
- 1
- 6
- 3
- 3
- 0
- 2
- 3
- 2
- 4
- 2
- 1
- 2
- 15
- 2
- 2
- 2
- 2
- 3
- 2
- 2
- $estudiantesPregrado
- 7
- 2
- 6
- 0
- 4
- 40
- 4
- 3
- 10
- 5
- 8
- 100
- 0
- 190
- 1200
- 2
- 5
- 0
- 100
- 150
- 30
- 24
- 8
- 40
- 15
- 16
- 300
- 10
- 24
- 2
- 70
- 10
- 8
- 8
- 20
- 100
- 4
- 3
- 100
- 2
- 90
- 4
- 5
- 2
- 20
- 110
- 600
- 9
- 4
- 8
- 5
- 2
- 50
- 10
- 40
- 3
- 5
- 20
- 7
- 12
- 3
- 12
- 5
- 420
- 11
- 25
- 5
- 50
- 15
- 36
- 0
- 14
- 5
- 6
- 43
- 2
- 4
- 5
- 20
- 3
- 4
- 7
- 4
- 6
- 2
- 12
- $estudiantesMaestria
- 1
- 3
- 3
- 0
- 0
- 5
- 2
- 1
- 4
- 2
- 6
- 0
- 1
- 0
- 9
- 1
- 4
- 0
- 4
- 4
- 0
- 0
- 4
- 1
- 0
- 4
- 2
- 3
- 5
- 10
- 0
- 5
- 0
- 5
- 7
- 10
- 2
- 4
- 0
- 1
- 20
- 0
- 5
- 1
- 4
- 30
- 0
- 2
- 10
- 2
- 7
- 0
- 10
- 2
- 3
- 1
- 4
- 0
- 5
- 5
- 1
- 1
- 1
- 8
- 0
- 0
- 0
- 5
- 5
- 8
- 0
- 4
- 5
- 2
- 7
- 0
- 2
- 1
- 10
- 2
- 6
- 4
- 0
- 1
- 1
- 4
- $estudiantesDoctorado
- 1
- 1
- 1
- 0
- 4
- 5
- 2
- 2
- 1
- 1
- 5
- 0
- 1
- 0
- 1
- 1
- 6
- 0
- 0
- 0
- 0
- 0
- 4
- 0
- 3
- 2
- 3
- 8
- 2
- 6
- 1
- 9
- 0
- 4
- 1
- 5
- 2
- 0
- 0
- 1
- 15
- 1
- 5
- 2
- 1
- 2
- 0
- 1
- 10
- 1
- 1
- 0
- 10
- 2
- 2
- 0
- 5
- 0
- 3
- 5
- 0
- 0
- 4
- 3
- 0
- 0
- 1
- 2
- 2
- 2
- 0
- 2
- 2
- 2
- 8
- 2
- 2
- 0
- 5
- 4.5
- 3
- 1
- 1
- 0
- 1
- 3
- $pasantesInternacionales
- 0
- 0
- 2
- 0
- 0
- 2
- 0
- 1
- 0
- 2
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 2
- 4
- 0
- 0
- 2
- 0
- 0
- 0
- 0
- 2
- 0
- 2
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 2
- 0
- 0
- 0
- 0
- 0
- 2
- 0
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 2
- 0
- 0
- 0.1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- $sistemaGestion
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- $manuelProcesos
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 0
- 1
- $mantenimientoPredictivo
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 1
- $pruebaAcreditada
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- $cuentasPruebasAcreditadas
- 0
- 0
- 0
- 0
- 0
- 2
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 16
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 4
- 0
- 0
- 0
- 0
- 0
- 0
- 16
- $consumoMensual
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- $consumoInsumos
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- $inventario
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- $contingencia
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- $metrologico
- 4
- 2
- 3
- 4
- 4
- 4
- 2
- 2
- 3
- 2
- 2
- 2
- 2
- 4
- 3
- 2
- 4
- 4
- 2
- 2
- 2
- 2
- 2
- 2
- 2
- 2
- 2
- 2
- 3
- 4
- 3
- 4
- 3
- 3
- 2
- 2
- 4
- 2
- 4
- 2
- 2
- 2
- 3
- 2
- 3
- 4
- 2
- 3
- 2
- 4
- 2
- 2
- 2
- 3
- 2
- 2
- 4
- 4
- 2
- 2
- 2
- 4
- 4
- 4
- 3
- 2
- 3
- 4
- 4
- 3
- 4
- 3
- 2
- 3
- 2
- 4
- 2
- 2
- 4
- 4
- 4
- 4
- 4
- 2
- 2
- 4
- $articulos
- 5
- 30
- 5
- 0
- 15
- 5
- 5
- 15
- 0
- 5
- 15
- 0
- 0
- 0
- 15
- 5
- 15
- 0
- 5
- 15
- 0
- 0
- 15
- 5
- 15
- 30
- 0
- 15
- 0
- 15
- 5
- 15
- 0
- 15
- 0
- 5
- 5
- 15
- 0
- 5
- 50
- 5
- 15
- 15
- 5
- 0
- 0
- 5
- 15
- 15
- 15
- 5
- 30
- 15
- 5
- 5
- 5
- 0
- 5
- 15
- 5
- 5
- 5
- 0
- 15
- 0
- 0
- 5
- 15
- 5
- 5
- 5
- 15
- 5
- 15
- 5
- 5
- 15
- 15
- 5
- 15
- 15
- 5
- 5
- 5
- 15
- $cuantosGruposUsanLab
- 1
- 0
- 3
- 6
- 2
- 3
- 3
- 1
- 2
- 2
- 0
- 0
- 1
- 0
- 2
- 0
- 4
- 0
- 1
- 4
- 1
- 3
- 3
- 0
- 3
- 0
- 0
- 4
- 0
- 4
- 1
- 8
- 0
- 1
- 0
- 2
- 4
- 3
- 0
- 1
- 18
- 0
- 1
- 7
- 0
- 3
- 0
- 1
- 5
- 8
- 2
- 1
- 2
- 2
- 1
- 0
- 2
- 0
- 0
- 0
- 2
- 0
- 2
- 4
- 0
- 2
- 1
- 6
- 1
- 2
- 2
- 3
- 3
- 3
- 1
- 1
- 3
- 4
- 5
- 4
- 3
- 0
- 1
- 2
- 1
- 1
- $ingresos
- 1
- 50
- 20
- 20
- 50
- 500
- 20
- 0
- 0
- 0
- 500
- 0
- 20
- 0
- 0
- 0
- 100
- 100
- 0
- 500
- 0
- 20
- 20
- 50
- 100
- 500
- 20
- 50
- 0
- 0
- 20
- 20
- 0
- 0
- 1
- 100
- 100
- 0
- 20
- 20
- 20
- 0
- 0
- 500
- 0
- 0
- 0
- 0
- 500
- 50
- 500
- 50
- 500
- 1
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 100
- 500
- 50
- 1
- 1
- 1
- 500
- 20
- 1
- 100
- 500
- 100
- 1
- 50
- 50
- 20
- 50
- 100
- 50
- 20
- 20
- 50
- 50
- 1
- 500
- $sabeNumeroEquipos
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 0
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- 1
- $equiposRobustos
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- $internationalPartners
- 0
- 1
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 0
- 0
- 0
- $patentes
- 0
- 1
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 0
- 1
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 1
In [304]:
data <- scale( matrix( as.numeric(cbind(t[,questions])), 86, 24 ), center=TRUE )
#dataf <- data.frame("q1"=data[,1],"q2"=data[,2],"q3"=data[,3],"q4"=data[,4],"q11"=data[,11])
Error in matrix(as.numeric(cbind(t[, questions])), 86, 24): (list) object cannot be coerced to type 'double'
Traceback:
1. scale(matrix(as.numeric(cbind(t[, questions])), 86, 24), center = TRUE)
2. matrix(as.numeric(cbind(t[, questions])), 86, 24)
In [ ]:
In [295]:
# Compute principal component analysis
library(FactoMineR)
res.pca <- PCA(data[,c(1,2,3,4,11)], ncp = 3, graph=FALSE)
# Percentage of information retained by each
# dimensions
library(factoextra)
Error in PCA(b$x[, c(1, 2, 3, 4, 11)], ncp = 3, graph = FALSE):
The following variables are not quantitative: x
Traceback:
1. PCA(b$x[, c(1, 2, 3, 4, 11)], ncp = 3, graph = FALSE)
2. stop(paste("\nThe following variables are not quantitative: ",
. auxi))
In [106]:
options(repr.plot.width=10, repr.plot.height=3)
fviz_eig(res.pca)
Error in inherits(X, c("PCA", "CA", "MCA", "FAMD", "MFA", "HMFA", "sPCA", : object 'res.pca' not found
Traceback:
1. fviz_eig(res.pca)
2. get_eigenvalue(X)
3. get_eig(X)
4. inherits(X, c("PCA", "CA", "MCA", "FAMD", "MFA", "HMFA", "sPCA",
. "sCA", "sMCA", "sMFA", "sHMFA"))
In [107]:
# Visualize variables
fviz_pca_var(res.pca)
Error in inherits(X, c("PCA", "princomp", "prcomp")): object 'res.pca' not found
Traceback:
1. fviz_pca_var(res.pca)
2. fviz(X, element = "var", axes = axes, geom = geom, color = col.var,
. alpha = alpha.var, select = select.var, repel = repel, col.col.sup = col.quanti.sup,
. col.circle = col.circle, ...)
3. .get_facto_class(X)
4. inherits(X, c("PCA", "princomp", "prcomp"))
In [108]:
# Visualize individuals
fviz_pca_ind(res.pca)
Error in inherits(X, c("PCA", "princomp", "prcomp")): object 'res.pca' not found
Traceback:
1. fviz_pca_ind(res.pca)
2. fviz(X, element = "ind", axes = axes, geom = geom, habillage = habillage,
. palette = palette, addEllipses = addEllipses, color = col.ind,
. alpha = alpha.ind, col.row.sup = col.ind.sup, select = select.ind,
. repel = repel, ...)
3. .get_facto_class(X)
4. inherits(X, c("PCA", "princomp", "prcomp"))
In [109]:
get_eig(res.pca)
Error in inherits(X, c("PCA", "CA", "MCA", "FAMD", "MFA", "HMFA", "sPCA", : object 'res.pca' not found
Traceback:
1. get_eig(res.pca)
2. inherits(X, c("PCA", "CA", "MCA", "FAMD", "MFA", "HMFA", "sPCA",
. "sCA", "sMCA", "sMFA", "sHMFA"))
In [ ]:
# Compute HCPC
res.hcpc <- HCPC(res.pca, graph = FALSE)
In [ ]:
options(repr.plot.width=10, repr.plot.height=8)
# Principal components + tree
plot(res.hcpc, choice = "3D.map")
In [ ]:
options(repr.plot.width=5, repr.plot.height=5)
# Draw only the factor map
plot(res.hcpc, choice ="map", draw.tree = FALSE)
In [ ]:
fviz_cluster(res.hcpc)
In [ ]:
names(res.hcpc)
C <- res.hcpc$data.clust$clust
data.frame( "a"=as.vector(unlist(t[17])[C==1]), "b"=as.vector(unlist(t[19])[C==1]), "c"=b$x[C==1,11])
data.frame( "a"=as.vector(unlist(t[17])[C==4]), "b"=as.vector(unlist(t[19])[C==4]), "c"=b$x[C==4,11] )
In [ ]:
In [ ]:
Content source: jwist/chemometrics
Similar notebooks: